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Introduction 


Assembling  the  games  for  this  collection  has  been  tremendous 
fun  for  both  of  us.  After  all,  not  many  people  are  lucky  enough 
to  be  able  to  spend  their  days  writing,  modifying  and  playing 
computer  games  -  and  then  claim  that  they've  been  working. 
But  that's  just  what  we've  been  able  to  do  when  working  on  this 
book. 

The  'Giant  Book'  series  already  covers  a  number  of  compu¬ 
ters  (including  the  Dragon,  Spectrum,  VIC  20  and  the 
Commodore  64).  There  was  no  way  we  could  consider  the 
series  complete  without  a  collection  of  games  for  the  computer 
which  many  believe  to  be  the  best  machine  that  British  genius 
has  produced.  So  here  it  is,  a  massive  collection  of  games  and 
utility  programs  which  will  prove  to  you  (if  proof  is  needed) 
just  how  versatile  a  companion  your  BBC  Micro  can  be. 

Special  thanks  to  Andrew  Hamper  and  Neal  Cavalier- 
Smith  for  introducing  us  to  each  other  -  and  thus  making  this 
book  possible  -  and  to  Helen  Fraser  at  Fontana  whose  continu¬ 
ing  enthusiasm  for  the  series,  and  encouragement,  made  it 
possible  for  this  book  to  exist. 


Tim  Hartnell 
Ian  Hutt 
April  1984 
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Getting  Started 


Reading  the  Listings 


Note  that  all  programs  in  this  book  have  been  printed  out  using 
the  Program  Lister  program  (see  pages  18-25).  The  program 
formats  the  listings  so  that  they  are  easier  to  read  than  would 
otherwise  be  the  case. 

One  of  the  most  useful  features  of  the  BBC  Micro's  red 
function  keys  is  to  allow  entry  of  teletext  control  codes  and 
user-defined  graphic  symbols.  These  are  used  by  pressing  one 
of  the  keys  at  the  same  time  as  pressing  either  SHIFT  or 
CONTROL.  The  codes  produced  by  these  keys  produce  some 
weird  effects  when  printed  out,  so  to  avoid  confusion,  it  is 
generally  not  advisable  to  print  these.  The  Program  Lister 
program  gets  round  this  by  converting  the  codes  into 
unambiguous  forms  which  can  be  easily  printed  and  under¬ 
stood.  The  actual  output  is  a  direct  representation  of  the  keys 
which  need  to  be  pressed  to  produce  the  effect  desired. 

There  is  another  common  problem  when  entering  program 
listings  from  a  book  or  magazine.  It  is  often  hard  to  tell  how 
many  spaces  are  to  be  included  within  a  string.  The  Program 
Lister  counts  the  spaces  in  the  program  for  you,  and  if  there  are 
more  than  two  in  a  row,  it  outputs  the  number  of  spaces 
required,  rather  than  just  printing  a  vast  empty  string.  One  or 
two  spaces  are  printed  directly.  The  output  from  the  program 
we’ve  mentioned  is  enclosed  within  square  brackets,  so  you'll 
know  that  anything  within  these  brackets  refers  to  information 
produced  by  the  Program  Lister  and  must  be  entered  with  care. 
Here's  how  to  work  out  what  they  mean. 


[fen] 

means 

shift  +  function  key  'n' 

[fen] 

means 

control  +  function  key  'n' 

[chn] 

means 

character  with  ASCII  code  n  (see  below) 

[spen] 

means 

n  spaces 

[chn] 
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Normally,  these  codes  are  not  available  from  the  keyboard,  but 
you  can  program  any  of  them  directly  into  one  of  the  function 
keys.  For  example,  if  the  character  with  code  255  is  required 
(that  is,  the  program  refers  to  ch255)  simply  type: 

>  VDU  255 

Then  after  the  character  appears  enter: 

>  *KEY  0  '  character  here' 

The  0  can  be,  of  course,  the  key  of  your  choice.  (Once  the 
character  has  appeared,  use  the  edit  keys  to  '  bringt  down'  into 
the  quotes.) 


OS  0.10 

All  the  programs  in  this  book  were  written  on  OS  1.20.  Most 
programs  will  work  without  modification,  but  programs  with 
user-defined  graphics  will  need  their  character  codes  changed. 
On  OS  1.20,  user-defined  characters  (before  explosion)  are 
defined  in  the  ASCII  code  range  128  -  159  inclusive,  but  in  OS 
0.10  they  are  in  the  range  224  -  255.  Therefore,  the  codes  will 
need  to  have  96  added  to  them. 

Also,  you'  lHiscover  that  using  the  function  key  in  conjunc¬ 
tion  with  SHIFT  or  CONTROL  will  not  work,  so  the  codes 
will  have  to  be  copied  into  the  keys  using  the  method  described 
above,  and  the  keys  are  unshifted.  Some  operating  system  calls 
are  not  supported  in  OS  0.10,  so  we'  veavoided  using  these  as 
much  as  possible. 

Three  of  the  programs  in  this  book  (Mandala,  Pontoon  and 
Play  Your  Cards  Right)  will  not  fit  on  the  computer  if  you  have 
discs.  To  get  them  to  fit,  you  need  to  disable  the  DFS.  You  do 
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this  by  entering: 


*  BU I LD  DWNLOAD 

1  *  KE  Y  0  *TAPE  | MFORA%  =  OTO  (TOP-PAGE )  ST 
EP4 :A% ! &  E  0  0  =  A% ! PAGE : NEXT : PAGE=&E00 | MOLD | 
MRUN  |  M 

2 

E  s cape 

The  routine  is  now  on  your  disc  for  you  to  use  later  on.  Before 
you  try  to  load  the  long  program,  enter  *EXEC  DOWNLOAD 
and  then  load  your  program.  Press  fO  and  your  program  will 
run  as  normal. 
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Program  Lister 


This  is  the  program  which  was  used  to  list  all  the  programs  in 
this  book.  As  we  have  explained,  the  program  takes  away  most 
of  the  incompatabilities  between  the  BBC  Micro  and  the 
printer.  On  most  printer/micro  combinations,  either  the  £  or 
the  #  is  available  (but  not  both)  and  often  the  wrong  one  is 
printed. 

The  program  also  deals  with  embedded  character  codes 
generated  using  the  SHIFT/CTRL  function  keys.  It  converts 
the  codes  to  list  as  [fsO]  and  the  like  for  the  sequence  '  SHIFT- 
function  O'  or  [fc9]  for  '  CTRL-  function  9'  .Other  codes 
handled  by  this  routine,  such  as  [ch255],  refer  to  '  character 
code  255'  Multiple  spaces  are  indicated  with  [spc5]  to  show 
five  spaces.  One  or  two  spaces  are  simply  shown  as  spaces 
within  the  string. 

Another  feature  of  Program  Lister  is  its  ability  to  restrict 
line  widths  and  page  lengths.  This  uses,  in  our  case,  an  inbuilt 
function  of  the  Epson  FX80,  but  can  be  implemented  with 
other  printers  by  software  in  the  program  which  counts  lines. 
The  program  also  allows  a  title  and  leading  sentence  to  be 
entered.  This  is  centred  before  the  program  is  printed  out. 


How  to  use  it 

The  program  must  be  in  a  *SPOOL  format.  We  find  this  a 
useful  format  in  which  to  store  backup  copies.  Once  a  spooled 
version  has  been  made  (as  shown  in  the  User  Guide  on  page 
402),  run  the  Lister  program.  It  will  first  ask  whether  you  wish 
to  enter  a  sentence  which  will  be  printed  before  the  listing.  If 
not,  the  next  stage  of  the  program  is  skipped.  If  you  indicate 
you  wish  to  enter  a  sentence,  you  do  so,  then  press  '  SHIFT- 
function  O’  which  will  cause  a  new  line  to  be  printed.  Any  other 
SHIFT/CTRL  function  keys  will  act  as  if  they  are  the  space  bar 


18 


when  printed,  but  the  line-centring  routine  will  act  as  if  it  is  a 
character.  That  is,  the  word  will  not  be  split  if  it  falls  at  the  end 
of  a  line.  The  other  commands  within  the  program  are  self- 
explanatory. 


Epson  FX80  Printer  Codes 

These  are  generally  sent  as  a  series  of  ESCape  codes  (similar  in 
operation  to  the  BBC'  s  VDU  statements). 

LINE  940 

PROC£  This  procedure  prints  out  the  £  sign 
LINE  1000 

PROCINITIALISE  This  initialises  the  printer,  as  if  it  had 
been  turned  off  then  on  again,  thus  clearing  any  previous 
settings 

LINE  1380 

VDU  2,1,27,1,ASC"@"  Initialises  printer  as  above 

VDU  l,27,2,ASC"Q",%,x%  Defines  printer  width  of  x% 

characters 

LINE  1390 

VDU  1,27, 1,ASC'T",  1,49  Allows  use  of  '  undefinedfcharac- 

ters  such  as  £ 

VDU  1,27,1,ASC"G"  Puts  printer  in  double-strike  mode 
VDU  l,27,l,ASC"N",l,y%  Specifies  the  number  of  lines 
(y%)  to  be  skipped  at  the  bottom  of  the  page 

LINES  1510  -  1740 

PROCCENTER(SS)  This  is  a  very  useful  routine  which 
centres  the  string  S$,  in  the  middle  of  screen  of  width  w%. 
This  procedure  takes  into  account  the  SHIFT  -  function  codes 
as  previously  explained. 
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10 
20 
30 
4  0 
50 
60 
7  0 
80 
90 
100 
110 
12  0 
130 
140 
ogr  am 
150 
ogr  am 
160 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


★  ★★★★★★★★★★★★★★★★★★★★★ 
★  ★  ★  ★  ★  ★ 

***  PROGRAM  LISTER  *** 
***  FOR  *** 

***  EPSON  FX-80  *** 

***  (C)  I.  HUTT  83  *** 

★  ★  ★  ★  *  * 

★  ★★★★★★★★★★★★★★★★★★★★★ 


VDU  3 

@%=& 90A : WIDTH  0 
MODE  7 

ON  ERROR  GOTO  1170 

PRINT  TAB (10,3)  ;CHR$(141)  ;  "  [fs3]Pr 
Lister [fs7] " 

PRINT  TAB (10,4)  ;CHR$(141)  ;  "  [fs4]Pr 
Lister [fs7] " 

PRINT  TAB (10,5) ; " [fsl] ============ 


170  PROCINITIALISE 

180  PRINT 1  1  '  "Do  you  wish  to  place  a  se 
ntence  at  startof  the  listing  (Y/N)  ?  "  ; 

190  IF  F  N  Y  N ( " N " )  THEN  INPUT  LINE'  [fs 
1] Sentence  :  [ f  s  7 ]  " S  $  ELSE  S$  =  "" 

200  PRINT'" [fs6] Define  page  size [fsl]? 

II  . 
f 

210  IF  FNYN("N")  THEN  size=TRUE :PROC_s 
ize  ELSE  size=FALSE 

220  INPUT '"[ f s 1 ] F i lename  of  program[fs 

7] ",F$ 

230  IF  LEN ( F  $ )  <3  THEN  P ROCCAT  ( F $ )  :  GO TO 
220 

2  4  0  F  %  =  OPENUP  ( F  $ ) 

250  IF  F  %  =  0  THEN  CLOSE  # 0 : PROCCAT ( F $ )  : 
PRINT '""""; F$ ;""  "  does  not  exist.": GOTO 
220 

260  IF  size  THEN  360 
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270  PRINT" [ f si ] Line  width  A-80,B-40,C- 
other  ( A , B , C )  "  ; 

2  80  REPEAT  KEY  $  =  GE  T  $ 

2  90  UNTIL  KE  Y  $  =  " A "  OR  KE  Y  $  =  " B "  OR  KE 
Y  $  = " C "  OR  KEY$=CHR$  (13) 

300  IF  KE  Y  $  =  " A "  OR  KE Y $  =  CHR$  ( 1 3 )  THEN 
w%=  8  0 

310  IF  KE  Y  $  =  " B  "  THEN  w%  =  40 
320  IF  KE  Y  $  =  " C "  THEN  INPUT'  "Width  2-80 
" , w  % : IF  w%  =  0  THEN  w%  =  80  ELSE  IF  w%  <2  OR 
w%  >  8  0  THEN  320 

330  VDU  2, 1, 27, 1,ASC"Q", 1, w%, 3 
340  PRINT' "Line  width  " ; w% ; "  character 
s  .  " 

350 

360  VDU  15,3 

370  REM  Strip  off  first  line  ie.  ">LIS 

■J1  II 

380 

390  REPEAT  C%=BGET  #F%:UNTIL  EOF  #F%  O 
R  C%=ASC " > " 

400  IF  C%OASC">"  THEN  PRINT '"[  fs  1  ]  Not 
[ f s 8 ] * SP OOLed [ f s 9 ]  Format GOTO  630 
410  REPEAT  UNTIL  BGET#F%=13 
420 

430  REM  start  printer 
440 

450  PRINT  '  ' 

460  VDU  2 

470  PROCCENTER ( S$ ) 

480  R%  =  TRUE 
4  90 

500  REM  list  modified  program  from  dis 
c  to  printer 
510 

520  Q%=FALSE 

530  REPEAT  L%=BGET  #F% 

54  0  IF  L%  =  62  AND  R%  THEN  570 
550  IF  L%=ASC "  '  "  THEN  PROC£  ELSE 
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PRINT 

FNCHAR ( L %  )  ; 

5  60  IF  L%  =  1 3  THEN  R%  =  TRUE  ELSE  R%  =  F A 
LSE 

570  UNTIL  L%=62  AND  R% 

580 

590  REM  close  file  and  stop  printer 
600 

610  IF  size  THEN  VDU  1 , 1 2 : PROCINI TI ALI 
SE  ELSE  PRINT ' ' ' ' ' 

620  VDU  3 
630  CLOSE  #F  % 

640  END 
650 

660  REM  this  converts  ASCII  code  from 
program  to  a  string  that  is  printed 
670 

680  DEF  FNCHAR ( C% ) 

690  IF  C%  =  3  4  THEN  Q %  =  -( Q %  + 1 REM 
detect  quotes 

700  IF  C%  =  3  2  AND  Q%  THEN  PROCSPACES  :R 
EM  detect  multiple  spaces 
710  IF  C%=0  THEN  ="" 

720  IF  C%=1 3  THEN  Q %=F AL SE : =CHR$ ( 1 3 ) : R 
EM  line  feed 

730  IF  C% < 1 2  8  THEN  =CHR$(C%)  : REM  norm 

al  characters 

740  IF  C%  < 1 3  8  THEN  =  "  [ f s "  +  S TR$  ( C% - 1 2 8 ) 
+"]"  : REM  shft  function  codes 

750  IF  C%  > 1 4  3  AND  C%<154  THEN  ="[fc"+S 
TR$ ( C% -1 4 4 ) + " ] "  : REM  Ctrl  function  codes 

760  =" [ch"+STR$ (C%) +" ] "  : REM  other  cod 

e  s  >12  7 
77  0 

780  REM  deal  with  multiple  spaces 
7  90 

800  DEF  PROCSPACES 

810  IF  NOT  Q  %  THEN  ENDPROC 
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820  LOCAL  S% 

830  S  %  =  1 

84  0  REPEAT  C%  =  BGET  #F% 

850  IF  C%=32  THEN  S%=S%+1 
860  UNTIL  C%<>32 

87  0  IF  S%>2  THEN  PRINT "[ spc S% ;  E 
LSE  PRINT  SPC ( S% ) ; 

880  IF  C%  =  3  4  THEN  Q%  =  -(Q%  +  1) 

890  IF  C%=ASC " ' "  THEN  PROC':C%=0 

900  ENDPROC 

910 

920  REM  deal  with  "£"  sign 
930 

940  DEF  PROC£ 

950  VDU  3, 96, 2,1, 134 

960  ENDPROC 

970 

980  REM  initialise  printer 
990 

1000  DEF  PROCINITIALISE 

1010  VDU2,  1,27,  1, ASC"@",  1,27,  1, ASC"6",  3 

1020  ENDPROC 

1030 

1040  REM  y/n  reply  function 
1050 

1060  DEF  FNYN ( D  $ ) 

1070  LOCAL  K  $ 

1080  *FX  15 

1090  REPEAT  K$=GET$ 

1100  UNTIL  K $  = " Y "  OR  K$  =  "y"  OR  K$="N" 
OR  K  $  =  " n "  OR  K$  =CHR$  (13) 

1110  IF  K$  =CHR$  (13)  THEN  K$=D$ 

1120  PRINT  ; K  $ 

1130  IF  K $  =  " Y "  OR  K $  =  " y "  THEN  =TRUE  ELS 
E  =FALSE 
1140 

1150  REM  error  handling  routine 
1160 

1170  CLOSE  #0 
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1180  VDU  3 

1190  IF  ERR017  THEN  REPORT  :  PRINT"  at  1 
ine  ERL: END 

1200  PRINT ' ' " [ f s 3 ] D o  you  wish  to  quit  p 
rogram  (Y/N) [fs7]?"; 

1210  IF  F  N  Y  N ( " Y " )  THEN  PRINT '  fs 1 ] PRO 

GRAM  TERMINATED [fs7] " :END 
1220  PRINT' "Do  you  wish  to  re-initialis 
e  printer  ?"; 

12  30  IF  F  N  Y  N ( " N " )  THEN  120  ELSE  180 
12  40  DEF  PROC_s i z  e 

1250  PRINT ' "Default  size  40*36." 

1260  w%  =  4  0 : 1%  =  3  6 

1270  PRINT ' "Change  size  (Y/N)  ?"; 

12  80  IF  NOT  F  N  Y  N ( " N " )  THEN  1360 

1290  INPUT' "Page  width  in  characters  2- 
80  ",w% 

1300  IF  w%=0  THEN  w%=40 
1310  IF  w%<2  OR  w%>  8  0  THEN  1290 
1320  INPUT' "Page  length  in  lines  1-66  " 
,  1% 

1330  IF  1%=0  THEN  1%=36 
1340  IF  1%<2  OR  1%>  6  6  THEN  1320 
1350  IF  1%  =  6  6  THEN  PRINT"NO  skip  over  p 
erferation" 

1360  x%=w% 

1370  y%=66-l% 

1380  VDU  2,  1,  27,  1, ASC"@",  1,  27,  1, ASC"Q", 
1,  x  % 

13  90  VDU  1,  2  7,  1,  ASCI",  1,  4  9,  1,  2  7,  1,  ASC" 
G", 1,27,  1,ASC"N",  1 , y  % ,  3 

1400  ENDPROC 

1410  DEF  PROCCAT (DR$) 

1420  IF  LEFT$ (DR$, 1) <>" : "  THEN  1490 
1430  D%=VAL (MID$ (DR$, 2, 1) ) 

1  4  4  0  IF  DR% < 1  OR  DR%>3  THEN  *.0 
1450  IF  DR%= 1  THEN  *.l 

14  60  IF  DR%  =  2  THEN  *.2 
147  0  IF  DR%  =  3  THEN  *.3 
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1480  ENDPROC 
14  90  *  . 

1500  ENDPROC 

1510  DEF  PROCCENTER ( S$ ) 

1520  IF  S$=""  THEN  ENDPROC 
1530  LOCAL  C%,P%, C$, T$ 

1540  w%=w%— 1 

1550  FOR  P%  =  1  TO  LEN ( S  $ ) 

1560  T $  =  "  " 

1570  REPEAT  C $ =MI D $ ( S $ , P % , 1 ) 

1580  T$=T$+C$ 

1590  P%=P%+1 

1600  UNTIL  (P%-1) >  =  LEN (S$)  OR  LEN  ( T 

$) > w %  OR  C $  =  "  [fsO]  " 

1610  P%=P%-1 

1620  IF  C  $  =  "  [ f  s  0 ]  "  THEN  1680 
1630  IF  P%>=LEN(S$)  THEN  1680 
1640  REPEAT  P %=P % - 1 : T $ =LEF T $ ( T $ , LEN ( T 
$ ) -1 ) : UNTIL  RIGHT$ (T$, 1) ="  "  OR  LEN(T$)= 

1 

1650  IF  RIGHT$ (T$, 1) ="  "  THEN  T$=LEFT 

$ (T$, LEN (T$) -1) 

1660  IF  LEN ( T$ ) =1  THEN  T $ =MI D $ ( S $ , P % , 
w%-l) : P%=P%+w%-2 
1670  FOR  C%  =  1  TO  LEN  (  T  $ ) 

1680  IF  MID$  (T$, C%, 1)  >="  [fsO]  "  THEN 

T  $  =  LEFT  $  ( T  $ , C  %  —  1 )  +"  " +  M I D  $  (T$,C%  +  1) 

1690  NEXT 

1700  PRINT  TAB ( ( w%  DIV  2)-(LEN(T$)  DI 
V  2) ) ; T$ 

1710  NEXT 
1720  PRINT 
1730  w%=w%+l 
1740  ENDPROC 
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Procedure  and  Function  Lister 


This  program,  which  is  very  handy  when  you'  redebuggin 
programs,  lists  all  the  procedure  names  and  functions,  in  line 
order.  To  use  the  program,  proceed  as  follows: 

Load  the  program  you  are  going  to  analyse. 

Then  enter,  in  direct  mode,  PRINT  “PAGE  and  write 
down  the  answer  you  get 

Now  enter  PAGE  =  TOP  +  256  and  press  RETURN. 

Now  enter  NEW  and  press  RETURN  again. 

Follow  this  by  CHAINing  this  LISTER  program.  It  will  ask 
you  to  enter  the  PAGE  value  you  wrote  down  earlier. 
When  you  enter  this  value,  prefix  it  with  &. 

When  you  press  RETURN,  the  program  will  list  out  the 
procedures  and  functions,  as  in  this  example: 

PAGE  =  & ICO  0 

140  PROC_SHUFFEL 
260  PROC_PLAY_GAME 
560  PROC_INIT_GAME 
630  PROC_PLACE_l st_HAND  S 
900  PROC_HUMAN_MOVE 
950  PROC_SHOW_OUTCOME 
1120  PROC_SE  TUP 
1220  PROC_INTRO 
1310  PROC_DRCD (X%, Y%, S%, C%) 

1520  FNNUM(NUM) 

1590  FNVALUE (card, ace) 

1710  FNSUI T (card) 

1760  PROC_BGET 
1900  FN_COMMAND (BUY) 

2000  PROC_TWI ST 
2190  FN_AN OTHER 
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2250  PROC_PL ( CH$ , S$ ) 

All  done ! 

> 

Here'  s  the  listing  for  this  handy  utility: 


10  REM  FUNCTION  &  PROCEDURE  LISTER 
20  MODE  7 

30  INPUT ''' "PAGE="page$ 

40  page=EVAL (page$)  AND  &FF00 
50  IF  (  ! page  AND  &  0 0 0 0FFFF ) = &FF 0D  THE 
N  PRINT' ' "No  program END 
60  A%=page 

70  REPEAT  N%= (A%?1*256) +A%?2 :L%=A%?3 
80  FOR  P  %  =  4  TO  L  % 

90  IF  A%?P%=&DD  THEN  PROC_def 

100  NEXT 

110  A%  =  A%  +  L% 

120  UNTIL  ?A%  =  &  0D  AND  A%?1  =  &FF 
130  PRINT' ' "All  done!" 

140  END 

150  DEF  PROC_def 
160  REPEAT  P%=P%+1 

170  UNTIL  A%  ?P  %  =  &  A4  OR  A%?P%  =  &F2  OR 
P  %>L% 

180  IF  P%>L%  THEN  ENDPROC 

190  PRINT ' TAB ( 5-LEN ( STR$ (N%) )); N% ; " 

200  IF  A%  ?P  %  =  & A4  THEN  PRINT "FN" ;  ELSE 
PRINT "PROC" ; 

210  REPEAT  P%=P%+1 
22  0  VDU  A%  ?P  % 

230  UNTIL  P %  =  L %  OR  A%?(P%  +  1)=58  OR  A 
%?  (  P  %  +  1 )  <33  OR  A%?  (P%  +  1 ) =61 
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240  ENDPROC 
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Arcade  Games 


Cosmic  Invaders 


Here  is  a  complete  implementation  of  ’space  invaders.  Even 
though  it  is  written  in  BASIC,  and  uses  MODE  7  graphics, 
you'll  be  amazed  to  see  how  faithful  it  is  to  the  arcade  original. 

Full  instructions  are  included  in  the  game,  which  was 
written  by  Mark  Bucknell.  There  are  a  number  of  options  you 
can  triger,  such  as  'freeze/unfreeze'  and  turning  the  sound  on  or 
off.  The  SHIFT  key  is  used  to  fire. 


10 

REM 

★  ★  ★  ★ 

Cosmic  invaders  *  *  *  * 

20 

REM 

★  ★  ★  ★ 

by  *  *  *  * 

30 

REM 

★  ★  ★  ★ 

M.N.Buckwell  *  *  *  * 

40 

REM 

★  ★  ★  ★ 

(C)  1984  **** 

50 

DIM 

Scores%  (9)  , Name  s  $  (9)  ,  Space%  (  7  , 

5 )  , Bombs  % (10, 1)  ,AlienO$  (1)  ,Alienl$ (1)  ,A1 
ien2  $ ( 1 )  ,  Ch%  3 

60  MODE  7 : ON  ERROR  GOTO  3240 
70  VDU  23, 1, 0; 0; 0; 0; 

80  ENVELOPE  1,129,0,0,0,100,0,0,127,- 
2, 0, -1, 126, 120 

90  ENVELOPE  2,1,1,0,0,200,1,0,126,-10 
0, 0, -126, 126, 126 

100  ENVELOPE  3,1,-16,-8,-4,5,10,20,70, 
0,0, -63, 70,63 

110  REM  ***  COLOUR  CHARACTERS  *** 

120  L  $  =  CHR$  (141)  : R$  =CHR$  (12  9)  :G$  =  CHR$( 
130) 

130  Y  $  =  CHR$  (131)  :B$=CHR$  (132 )  :M$  =  CHR$( 
133) 

140  C  $  =  CHR$  (13  4)  :FL$  =  CHR$ (136)  :ST$  =  CHR 
$ (137) 

150  REM  ***  SPECIAL  CHARACTERS  *** 
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160  BL$=CHR$  (255)  :REM  Block 

170  B$=CHR$ (8)  : REM  Cursor  Back 

180  F $  =  CHR$  ( 9 )  : REM  Cursor  Forward 

190  D $  =  CHR$  (10)  : REM  Cursor  Down 

2  00  U $  =  CHR$  (11)  : REM  Cursor  Up 

210  REM  ***  GRAPHIC  COLOUR  CHAR'S  *** 
220  GR$  =CHR$  (145)  :GG$=CHR$  (146)  :GY$  =  CH 
R$ (147) : GC$=CHR$ (150) 

230  REM  ****  Space  Invader  A  ***** 

240  Alien0$ (0) =">"+BL$+"m  "+D$+B$+B$+B 
$+B$+"k/7  " +D$+B$+B$+B$+B$+" !  ""  " 

250  Alien0$ (1) =">"+BL$+"m  "+D$+B$+B$+B 
$+B$+"k/7  "+D$+B$+B$+B$+B$+"  [chl63]  " 

260  REM  ****  Space  Invader  B  **** 

270  Alienl$ (0) ="ypv  " +D$+B$+B$+B$+B$+" 
m"+BL$  +  ">  " +D$+B$+B$+B$+B$  +  "  !  ""  " 

280  Alienl$ (1) ="ypv  " +D$+B$+B$+B$+B$+" 
m"+BL$+">  " +D$+B$+B$+B$+B$+"  [chl63]  " 

290  REM  ****  Space  Invader  C  **** 

300  Alien2$ (0) ="ypv  " +D$+B$+B$+B$+B$+" 
m/>  "+D$+B$+B$+B$+B$  +  "  !  ""  " 

310  Alien2$ (1) ="ypv  " +D$+B$+B$+B$+B$+" 
m/>  "+D$+B$+B$+B$+B$+"  [chl63]  " 

320  REM  ****  Blank  Invader  **** 

330  Blankl$  =  "  [spc4]  " +D $ +B$ +B $ +B $ +B$  +  "  [ 
spc4 ] " +D$+B$+B$+B$+B$+" [spc4] " 

340  Blank2$=" [spc5] " +D $ +B$ +B $ +B $ +B$ +B$ 
+  "  [ spc5 ]  "+D$+B$+B$+B$+B$+B$  +  "  [spc5]  " 

350  REM  ****  Blank  Invader  Side  **** 
360  Blank_Line$=F$+F$+F$+"  "+D$+B$+"  " 

+D$+B$+"  " 

370  REM  ****  Your  Base  **** 

380  B a s e $  =  "  pAp  " 

390  REM  ****  Sheild  **** 

400  Sheild$=BL$+BL$+BL$+D$+B$+B$+B$+BL 
$+BL$+BL$+D$+B$+B$+B$+BL$+BL$+BL$ 

410  REM  ****  Mystery  **** 

420  Mystery$="  ns=" 

430  PROC_Init ialize 
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440  REM  Main  Program 

450  RE PEAT : fin is h= FALSE 

4  60  P  ROC_T i 1 1 e : P ROC_T ime_k e y 

4  7  0  IF  A  $  = M  "  GOTO  510 

4  8  0  IF  A  $  =  "  Q  "  OR  A$="q"  GOTO  540 

4  9  0  P  ROC_S  co  r e  s : P  ROC_T ime_key 

5  0  0  IF  A  $  =  "  Q  "  OR  A  $  =  "  q  "  GOTO  540 

510  IF  A  $  = M  M  THEN  PROC_Play 

5  2  0  P  RO C_H i gh_ S  c o  r e  s : P  ROC_T ime_ke  y 

53  0  IF  A  $  = M  M  GOTO  510 

54  0  UNTIL  A$  =  ,,Q"  OR  A$="q" 

550  CL  S : END 

560  DEF  PROC_T it le : CLS 

570  PRINTL$ ; Y$ " [ spclO ] Cosmic  Invaders" 

580  PRINTL$;G$" [spclO] Cosmic  Invaders" 

590  PRINT1 R$" Instructions  for  use 
600  PRINTC$"  [spc5]  The  object  of  the  ga 
me  is  to" 

610  PRINTC$" shoot  the  cosmic  aliens  fr 
om  the  sky  to"; 

620  PRINTC$"save  the  world." 

630  PRINTM$ "Press  the  following  keys  f 
or  use  : - " 

640  PRINT ' " [ spc5 ] Z  -  To  move  left" 
650  PRINT  1  "[  spc5 ] X  -  To  move  right" 
660  PRINT  1  "  [  spc5 ]  SHIFT  -  To  fire" 

67  0  PRINT  1  "[ spc5 ] ESCAPE  -  To  exit  from 
game" 

68  0  PRINT  1  "[ spc5 ] F/U  -  F r e e z e / Un -F r e e z 
e" 

690  PRINT  1 Y  $ "Option  : - " 

700  PRINT '  "  [spc5]  S/O  -  Sound  on/off" 
710  PRINT' G$" Press "FL$M$" Space "ST$G$"t 
o  start  or  f  Q  f  to  quit" 

720  ENDPROC 
7  3  0  DEF  P  ROC_P lay 
740  Score%=0:Base%=3 
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7  5  0  St  art %  =  0 

760  REPEAT : PROC_Setup_game 
7  7  0  REPEAT : PROC_Key_Te  st : PROC_Update 
_Invader s : IF  NOT  finish  THEN  PROC_Bombs 
7  80  UNTIL  f inish  =  TRUE : S t ar t %  =  St  a r t % + 

1 

790  UNTIL  P%<>7 : Base%=Base%-l 
800  IF  Score%>Scores%  (9)  THEN  PROC_Sco 
re 

810  ENDPROC 

820  DEF  PROC_Bombs 

830  LOCAL  D% : IF  Bomb%<MBomb%  THEN  PROC 
_Ne w_Bomb 

840  IF  Bomb%=0  GOTO  910 
850  FOR  D %  =  1  TO  MBomb% 

860  IF  Bombs  % ( D% ,  1 )  <>  0  THEN  PROC_Loo 
k_Bomb 

870  NEXT 

880  FOR  D %  =  1  TO  MBomb% 

890  IF  Bombs% (D%, 1) =23  THEN  PRINTTAB 
( BBomb  s  % ( D% , 0 )  , Bombs  % ( D  % , 1 )  )  ; "  " ;  : Bomb  s  % 

(D%, 1 ) =0 : Bombs%=Bombs%-l 
900  NEXT 
910  ENDPROC 

920  DEF  PROC_Look_Bomb 

93  0  PRINTTAB (Bombs% (D%, 0)  , Bombs  % (D%, 1) 

+  D  ? 

940  IF  (FN_Find_Char<>32 )  AND  ( (Bombs% 
(D%,  1)  +1>Y%+ (R%  +  1)  *3)  OR  (Bomb  s  % ( D% ,  0 )  <X 
%)  OR  (Bomb  s%  (D%, 0) >  =  X%+ ( P  %-0%  + 1 )  *4)  )  TH 
EN  PROC_Bomb_Hit  ELSE  PROC_Move_Bomb 
950  ENDPROC 
960  DEF  PROC_Bomb_Hit 
970  Bomb%=Bomb%-l 

980  IF  Bombs% (D%, 1) +1=23  THEN  PROC_Bom 
b_Hit_Base  :GOTO1040 

990  PRINTTAB (Bombs%  (D%,  0)  , Bombs  % (D%,  1) 
+1) ; : C%=FN_Find_Char 
1000  IF  C%  =AS  C ( BL  $ )  THEN  PRINT "  |  GOTO 
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1040 

1010  IF  C%=ASC ( " I " )  THEN  PRINT "p GOTO 
1040 

1020  IF  C%=ASC("p")  THEN  PRINT"  ";:GOTO 
1040 

1030  PRINT" 

10  4  0  PRINT TAB (Bombs%  (D%,  0)  , Bombs  % (D%,  1) 

) ; "  : Bombs% (D%, 1) =0 

1050  ENDPROC 

1060  DEF  PROC_Bomb_Hit_Base 

1070  SOUND  513,-10,6,10 

10  8  0  PRINT TAB (B%  +  1, 23)  ; "  [spc3] 

1090  B%=1 

1100  Base%=Base%-l 

1110  PRINTTAB  (0, 24)  ; STRING$  (20,  "  "); 

1120  IF  Base%=0  THEN  finish=TRUE  ELSE  P 
ROC_Display_Base :PROC_Info_line 
1130  FOR  I%=1  TO  10000 : NEXT 
1140  ENDPROC 
1150  DEF  PROC_Move_Bomb 

1160  PRINTTAB (Bombs% (D%,  0)  , Bombs  % (D%,  1) 

\  .  II  II  . 

)  r  r 

1170  Bombs  % ( D  % ,  1 ) =Bomb  s  % ( D% , 1 ) +1 
1180  IF  Bombs% (D%, 1) =23  THEN  Bombs%(D%, 
1 ) =0 : Bomb%=Bomb%-l : GOTO  1200 
1190  PRINTTAB (Bombs% (D%,  0)  , Bombs  % (D%,  1) 

)  ;  "  #  "  ; 

1200  ENDPROC 

1210  DEF  PROC_New_Bomb 

1220  D%=-1 : REPEAT : D%=D%+1 : UNTIL  Bombs%( 
D  % ,  1 ) =  0  OR  D%=MBomb% 

1230  REPEAT : T%=RND (P%-0% ) +0% : UNTIL  Spac 
e  %  (  T  % ,  5) 

1240  J%=5 : REPEAT : J%=J%-1 : UNTIL  Space%(T 
%,  J% ) =  TRUE 

12  5  0  Bombs  % (D%,  0)=X%+(T%-O%)  *4+1 :Bombs% 
( D  % ,  1 ) =Y  %  + ( J% )  *3+2 : Bomb%  =  Bomb%  +  l 
1260  ENDPROC 
1270  DEF  PROC_Score 
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1280  CLS : S%=10 : REPEAT : S%=S%-1 : UNTIL  Sco 
r e % <= S cor e s % ( S % )  OR  S%=0 
1290  IF  S%=8  THEN  GOTO  1310 
1300  FOR  I%=S%+1  TO  8 : Scores% ( I%+1 ) =Sco 
r e  s  %  (1%)  : Name  s  $ (I%  +  1) =Names$  (1%)  : NEXT 
1310  Scores% ( S%+1 ) =Score% 

1320  PRINT' ' 'G$"  You  are  at  number  ";S% 
+2;"  in  the  top  10 Enter  your  nam 
e  "  C  $  ; 

1330  INPUT  N ame $ : IF  LEN ( Name $ ) > 1 5  THEN 
N  ame  $  =  LEF  T  $  (Name$,  15) 

1340  Name$ (S%+1) =Name$ 


1350 

ENDPROC 

1360 

DEF  P ROC_Ke y_T e  s  t 

137  0 

IF  INKEY  (-98 )  AND 

NOT 

INKEY  { 

:-67) 

T 

HEN  PROC_Mo ve_Le  f t 

1380 

IF  INKE Y  (-67)  AND 

NOT 

INKEY  { 

:-98) 

T 

HEN  PROC_Move_Right 

1390  IF  INKEY ( — 1 )  AND  NOT  Missile%  THEN 
PROC_Fire 

1400  IF  INKE Y  (-68)  THEN  REPEAT  UNTIL  IN 
KEY (-54) 

1410  *FX  15  1 
1420  ENDPROC 

1430  DEF  PROC_St art_My st ery 
1440  MystX%=l : Mystery%=TRUE 
1450  PRINT TAB (MystX%, 1) ;Mystery$; 

1460  ENDPROC 

1470  DEF  PROC_Move_My s t ery 
1480  SOUND  &  1 3  ,  3 , 2  0 ,  5 
1490  MystX%=MystX%+l 

1500  PRINT TAB (MystX%, 1) ;Mystery$; 

1510  IF  My stX%  =  35  THEN  My st ery%=FALSE 
: PRINT TAB (MystX%,  1 )  ;  "  [  spc4 ]  "  ; 

1520  ENDPROC 
1530  DEF  PROC_F ire 

1540  SOUND  &0012, 2, 0, 10 : Mi s s i 1 e % =TRUE :M 
issileX%=B%+2 :MissileY%=22 : PROC_Move_Mi s 
s i le  ( L  % ) 
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1550  ENDPROC 

1560  DEF  PROC_Move_Missile (L%) 

157  0  LOCAL  I  % , K  % 

1580  PRINTTAB (MissileX%,MissileY%)  ; 

1590  IF  FN_F ind_Char  <>  32  THEN  PROC_Hi 
t : GOTO  1650 

1600  PRINTTAB (MissileX%, MissileY%+l ) ; 
1610  IF  Mis  sileY%  +  l  <>  23  THEN  PRINT"  " 

1620  PRINTTAB (MissileX%, MissileY%) ; 

1630  IF  Mis  sileY%Ol  THEN  PRINT"A" 

1640  IF  Mis sileY%>l  THEN  Mi s s i le Y%=Mi s s 
ileY%-l  ELSE  Mi s s i le % =F AL SE 
1650  ENDPROC 
1660  DEF  PROC_Hit 

167  0  SOUND  &0010, -15, 6, 5  :  IF  MissileY%  < 
22  THEN  PRINTTAB (MissileX%, MissileY%+l) 

.  n  n 

i 

1680  PRINTTAB (MissileX%, MissileY%) ; :C%= 
FN_F ind_Char 

1690  IF  (MissileY%+l<=Y%+ (R%+1) *3)  AND 
(MissileX%>=X%)  AND  ( Mi s s i leX% <X% + ( P % -0% 
+ 1 )  *  4 )  THEN  PROC_Invader_Hit  { L % )  : G0T0172 
0 

1700  IF  Mis sileY%  =  l  THEN  PROC_My st ery_H 
it : GOTO  1740 
1710  PROC_Ba  s  e_Hi t 
1720  I%=7 

1730  IF  NOT  FN_Is_Line  THEN  finish=TRUE 
1740  ENDPROC 

1750  DEF  PROC_My s t ery_Hit 

17  60  PRINTTAB (MystX%,l)  ;  "  [spc5] 

1770  Score %= S core % +RND ( 3 0 )* 1 0 

1780  PROC_Inf o_line 

1790  ENDPROC 

1800  DEF  PROC_Base_Hit 

1810  IF  C%  =AS  C ( BL  $ )  THEN  PRINT GOTO 
1840 
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182  0  IF  C%=ASC ( " / "  )  THEN  PRINT "  [  ch 1 6 3 ]  " 
; : GOTO  1840 
1830  PRINT" 

1840  Missile%=FALSE 
1850  ENDPROC 

1860  DEF  PROC_Invader_Hit (L%) 

187  0  LOCAL  I  % , K% 

1880  IF  Le  f t  %  THEN  G%  =  -1  ELSE  G%  =  1 
18  90  IF  Mis  s i leX%  >  X% + ( L%-0%  + 1 )  *  4  THEN 
I%= (MissileX%-X%+ (0%*4 ) +G%) DIV4  ELSE  1% 
= (MissileX%-X%+0%*4) DIV4 
1900  K%= (MissileY%— Y%)  DIV  3:Space%(I%, 
K% ) =FALSE : J%= ( I%-0% ) *4: PROC_Blank ( J%) 
1910  IF  NOT  FN_Is_Line  THEN  Space% (1%, 5 
) =FALSE : PROC_Boundary_Updat e 
1920  K%= (MissileY%— Y%)  DIV  3 
1930  IF  NOT  FN_I s_Row  THEN  Space%(7,K%) 
= FALSE : PROC_Boundary_Updat e 
1940  Miss i le %=F AL SE : Score%  =  Score%  +  (  (3- ( 
(MissileY%-Y%)DIV3)DIV2) *20) : PROC_Inf o_l 
ine 

1950  ENDPROC 

1960  DEF  PROC_Boundary_Updat e 
1970  S%=0% : PROC_X_Boundary_Updat e : PROC_ 
Y_Boundar y_Updat  e:X%  =  X%+(0%-S%)  *4 
1980  ENDPROC 

1990  DEF  PROC_X_Boundary_Updat e 
2000  IF  Space%  (0%, 5)  GOTO  2020 
2010  REPEAT : 0%  =  0%  +  l : UNTIL  Spaced  (0%,  5) 
2020  IF  P%=7  GOTO  2060 
2  030  IF  Space%  (P%, 5)  GOTO  2060 
2040  REPEAT : P%=P%-1 : IF  P%<0  THEN  finish 
=  TRUE : P%  =  7 

2  050  UNTIL  Space%  (P%, 5) 

2060  ENDPROC 

2070  DEF  PROC_Y_Boundary_Updat e 
2080  IF  Space%(7,Q%)  GOTO  2100 
2  090  REPEAT : Q%  =  Q%  +  1 : UNTIL  Space%  (7,Q%) 
2100  IF  R%  =  5  GOTO  2140 
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2110  IF  Space%(7,R%)  GOTO  2140 
2120  REPEAT : R%=R%-1 : IF  R%<0  THEN  finish 
=  TRUE : R%  =  5 

2130  UNTIL  Space%(7,R%) 

2140  ENDPROC 
2150  DEF  PROC_Move_Lef t 
2160  IF  B  %  > 1  THEN  B  %  =B  %  —  1 
2170  PROC_Display_Base 
2180  ENDPROC 

2190  DEF  PROC_Move_Right 
2200  IF  B%  <  3  4  THEN  B%  =  B%  +  1 
2210  PROC_Display_Base 
2220  ENDPROC 

2230  DEF  PROC_Setup_game 
22  4  0  CL  S 

2250  O%=0 :P%=6:Q%=0 :R%=4 :B%=1 : Bomb%=0 :M 
Bomb%=St art %+6 : FOR  I%=0  TO  1 0 : Bombs % ( I % , 
1 ) =0 : NEXT 

2260  Mystery%=FALSE:Missile%=FALSE:Miss 
ileX%=0 :MissileY%=0 : finish=FALSE : VDU  23, 
1,  0;  0; 0; 0; 

2270  PROC_Inf o_line : PROC_Colour_setup : P 
ROC_Invader_setup: PROC_Display_Sheilds : P 
ROC_Display_Invaders : PROC_Display_Base 
2280  ENDPROC 

2290  DEF  PROC_Display_Base 
2300  PRINTTAB (B%, 23 ) ; Base$ 

2310  ENDPROC 

2320  DEF  PROC_Display_Sheilds 

2330  FOR  I%=  0  TO  3 : PRINTTAB ( 5 +  1  %  *  9 , 2 0 ) 

; Sheild$ : NEXT 
2340  ENDPROC 

2350  DEF  PROC_Invader_setup 
2360  FOR  I%=  0  TO  7:FOR  J%=  0  TO  5:Spac 
e% (1%, J%) =TRUE : NEXT: NEXT 
2370  X%=10 : Y%=Start %MOD4  +  2 : Left%=TRUE 

2380  ENDPROC 

2390  DEF  PROC_Display_Invaders 
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2400  SOUND  1, -15, 1, 1 : I%=0% :M%=ABS ( (X%+I 
%  *  4 ) MOD  2) 

2410  REPEAT : PROC_Key_Test :J%=(I%-0%) *4 
2420  FOR  K%=  Q%  TO  R%:IF  Space%(I%,K% 

)  THEN  PROC_Invader  ELSE  PROC_Blank ( J% ) 

24  30  NEXT 

24  4  0  IF  Mis  s i le  %  THEN  PROC_Move_Mi s s i 
le ( 1%) 

2450  IF  My stery%  THEN  P ROC_Mo ve_My s t e 
ry  ELSE  IF  RND(100)=1  THEN  PROC_St art_My 
stery 

2460  I%=I%+1 : UNTIL  I%>P%  OR  finish=TRUE 

2470  ENDPROC 

2480  DEF  PROC_Updat e_Invaders 
2  490  IF  Le  f t  %  THEN  X%  =  X% - 1  ELSE  X%=X%  +  1 

2500  IF  NOT  Lef t %  THEN  PRINTTAB (X%-1, Y% 

+  Q%  *  3 )  ; STRING$  (  ( R% -Q%  +  1 )  *  3  ,  "  "+D$+B$)  ; 

2510  PROC_Display_Invaders 

2520  IF  X  %  <  = 1  THEN  Lef t %  =  FALSE : PROC_Mov 
e_Down 

2530  IF  X%+ (P%-0%+l) *4>=39  THEN  Left%=T 
RUE : PROC_Move_Down 
2540  ENDPROC 
2550  DEF  PROC_Move_Down 

2560  PRINTTAB (X%,Y%+Q%*3) ;STRING$( (P%-0 
%  + 1 )  *  4 ,  "  " )  ;  : Y%  =  Y%  +  1 : IF  Y% - ( 4 -R% )  * 3  =  9 THE 

N  f i n i s  h  =  TRUE 
2570  ENDPROC 
2580  DEF  FN_I s_Line 

2590  L%=0 : FOR  K%=0  TO  4 : IF  NOT  Space%(I 
% , K% )  THEN  L%=L%+1 

2  600  NEXT :  IF  L%=  5  THEN  =FALSE  ELSE 

=  TR 
UE 

2610  DEF  FN_I s_Row 

2  62  0  L%  =  0 : FOR  I%  =  0  TO  6:IF  NOT  Space%  (I 
% ,  K  % )  THEN  L%  =  L%  +  1 
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2630  NEXT :  IF  L%=  7  THEN  =FALSE  ELSE  =  TR 

UE 

2640  DEF  PROC_Invader 

2650  PRINTTAB (X%+ J%, Y%+K%*3 ) ; 

2  660  ON  K%  + 1  GOTO  2  6  7  0,2670,2680,2680,2 
690,2700 

2670  PRINT  Alien2$(M%) :GOTO  2710 

2680  PRINT  Alienl$ (M%) : GOTO  2710 

2690  PRINT  Alien0$ (M%) : GOTO  2710 

27  00  finis  h=  TRUE 

2710  ENDPROC 

2720  DEF  PROC_Blank ( J%) 

2730  IF  NOT  Left%  THEN  J%=J%-1 
2740  PRINTTAB (X%+J%, Y%+K%*3 );: IF  Left% 
THEN  PRINTBlankl$  ELSEPRINTBlank2 $ 

2750  ENDPROC 

2760  DEF  PROC_Colour_setup 
2770  PRINTTAB ( 0 , 1 ); GR$ ; 

2780  FOR  I%=  2  TO  7 : PRINT TAB ( 0 , I  % )  ; GC $ ; 
TAB (0,  I %  +  6 )  ; GR$ ; TAB (0, I%  +  12)  ;GY$;  : NEXT 
2790  FOR  I%=  0  TO  2 : PRINTTAB ( 0 , I %+2 0 ); G 
G$ ; : NEXT : PRINT ' GR$ ; 

2800  ENDPROC 

2810  DEF  PROC_Inf  o_l ine 

2820  PRINTTAB (0,0)G$"HS"M$;Scores%(0) ; 
2830  PRINTTAB (20,0)G$"Score"M$;Score%; 
2840  PRINTTAB  (0, 24)  ; CHR$  (150)  ; 

2850  FOR  I%=  1  TO  Basel : PRINTBase$ NEX 
T 

2860  ENDPROC 

2870  DEF  PROC_Scores 

2  880  CL  S 

2890  PRINTCHR$  (141) CHR$  (130)  "  [spc3]Scor 
es  given 

2900  PRINTCHR$  (141) CHR$  (130)  "  [spc3]Scor 
es  given 

2910  FOR  I%=  4  TO  24:PRINT  TAB(0,I%);CH 
R$ (150) ; : NEXT 

2  92  0  PRINTTAB (5,6)  ;Mystery$; TAB ( 20  ,  6 )  ; C 
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HR$ (133);"????"; 

2930  PRINT TAB (6, 10) ;Alien2$ (0) ; TAB (20,1 
1 )  ; C  HR  $ ( 133 )  ; " 60  " 

2940  PRINT TAB (6, 15) ;Alienl$ (0) ; TAB (20,1 
6 )  ; C  HR  $ ( 133 )  ; " 40  " 

2950  PRINT TAB (6,20) ;AlienO$ (0) ; TAB (20,2 
1)  ; C  HR  $ (133)  ; "20" 

2960  ENDPROC 

2970  DEF  PROC_High_Score  s 

2  980  CL  S 

2990  PRINTCHR$  (141) CHR$  (130)  "  [spclO]Hig 
h  Scores" 

3000  PRINTCHR$  (141) CHR$  (130)  "  [spclO]Hig 
h  Scores" 

3010  FOR  I%=  0  TO  9 

3020  PRINT' CHR$(134);I%+1; TAB (4) ;Name 
$  (1%)  ; TAB (30)  ;Scores%(I%) 


3030 

NEXT 

3040 

ENDPROC 

3050 

DEF  PROC_I ni t i a 1 i ze 

3060 

*FX2 1 0  0 

3070 

FOR  I%=  0  TO  9 

3080 

Names$(I%)="Mark  beat  you  !!! 

II 

3090 

Scores%(I%) =10000- (I%*1000) 

3100 

NEXT 

3110 

ENDPROC 

3120 

DEF  PROC_Time_key 

3130 

TIME=0 

3140 

REPEAT 

3150 

A$  =  INKEY  $  ( 0 ) 

3160 

n 

IF  A  $  =  " s "  OR  A  $  =  " S "  THEN  *FX 

2  10 

u 

3170 

1 

IF  A  $  =  " o "  OR  A  $  =  " O "  THEN  *FX 

2  10 

± 

3180 

UNTIL  A  $  = " Q "  OR  A$  =  "q"  OR  A$  =  " 

ii 

OR  TIME  =  1000 

3190 

ENDPROC 

3200 

DEF  FN_Find_Char 

3210 

A%  =  &  87 
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3220  ! Ch%=USR ( &FFF4 ) 

3230  =  Ch%  ? 1 

3240  REM  ****  Error  Routine  **** 
3250  IF  ERR  =  17  GOTO  440 
3260  REPORT : PRINT"  in  line  " ; ERL 
3270  END 
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Cosmos 


In  this  exciting  game  you  are  flying  over  a  moving  landscape 
which  produces  a  very  good  3-D  effect.  You  have  to  try  and 
shoot  as  many  alien  birds  as  possible  within  a  limited  time.  Full 
instructions  are  within  the  game. 

You  move  your  sights  around  the  galaxy  until  you  spot  one 
of  the  birds.  The  birds  will  try  to  evade  your  lethal  weaponry. 


10  REM  COSMOS 
30  MODE  7 
40  PROC_IN  S  TR 
50  MODE  2 
60  PROC_INI T 
70  REPEAT 
80  PROC_NEWGAME 
90  PROC_PLAY 
100  UNTIL  NOT  FN_AN OTHER 
110  MODE  7 
120  END 

130  DEF  PROC_INI T 

140  VDU  23, 0, 10, 32, 0; 0; 0; 

150  VDU  23, 128, &31, &4B, &85, &87, &06, &03 
, &  0  4 , &  08 

160  VDU  23, 129, &BC, &D2, &A1, &E1, &60, &C0 
,  &  2  0  ,  &  1 0 

170  ENVELOPE  1,1,-16,-8,-4,5,10,20,126 
,0,0, -63, 126, 63 

180  ENVELOPE  2 , 1 , - 2 , 4 , - 2 , 2 , 2 , 2 , 1 2 6 , 0 , 0 
,-126,126,100 

190  HIGH=0 : H$="  " 

200  FOR  W%=0  TO  15 

210  VDU  19,W%+ (W%=7) , 0, 0, 0; 

220  NEXT 
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230  VDU  19,7,2,0,0,0 
240  COLOUR  1 : W%= 1 4 
250  ENDPROC 
260  DEF  PROC_ALTCOLS 
270  SOUND  &13,-10,3,10 
2  80  *  F  X  19 

290  VDU  19, W%, 4,0,0; 

300  W%=W%-1 : IF  W%<0  THEN  W%=14 
310  IF  W%=7  THEN  W%=6 
320  VDU  19, W%, 6,0,0; 

330  ENDPROC 

34  0  DEF  PROC_LAN  SCAPE 

350  COLOUR  7 : COLOUR  143:CLS 

360  PROC_SHIP 

370  PRINT  TAB (0, 0) ; "Energy  1000  Hits  0 

n 

380  of f setl=128 : C%=14 
390  MOVE  0 , 512 : DRAW  1279,512 
400  FOR  col=5  TO  1  STEP  -0.05 
410  PROC_ALTCOLS 
420  GCOL  0,12  8  +C% 

430  of f set2=of fsetl :offsetl=636/col 
440  VDU  24, 0; 636-offsetl; 1279; 636-of 
fset2; 16, 26 

450  C%=C%-1 : IF  C%=7  THEN  C%=6 

460  IF  C%=-1  THEN  C%=14 
470  NEXT 
480  GCOL  3,8 

490  MOVE  640, 508 : MOVE  500,4:PLOT  85,78 
0,4 

500  PROC_SHIP 

510  GCOL  3,8 

520  ENDPROC 

530  DEF  PROC_SHIP 

540  GCOL  0,7: GCOL  0,135 

550  MOVE  0,50: MOVE  0,0:PLOT  85,100,100 

560  MOVE  1279,50: MOVE  1279,0:PLOT  85,1 
179,100 
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570  VDU  24, 0 ; 0 ; 127 9; 2 6; 16, 26 

580  PX%=9 : PY%=13 

590  PROC_S I GHT 

600  ENDPROC 

610  DEF  PROC_NEWGAME 

620  E%=1000 : H%=0 :B%=0 

630  PX%=9 : PY%=13 : SX%=PX% : SY%=PY% 

64  0  BX%=RND  (30) -5 :BY%=RND  (5) 

650  GCOL  4,0 
660  PROC_LAN  SCAPE 

670  PRINT  TAB ( 0,  10 );  "Press  RETURN  to  p 
lay" 

680  *FX1 5 

690  REPEAT  UNTIL  GET=13 

700  REPEAT  UNTIL  NOT  INKEY(-74) 

710  PRINT  TAB (0,  10)  ; SPC  (20) 

720  ENDPROC 

730  DEF  PROC_F IRE 

740  VDU  19,15,4,0,0; 

750  TX%  =  64*  (SX%  +  1)  : T Y %  =  1 0 0 7 - ( 3 2  * S Y% ) 
760  MOVE  100, 100 : DRAW  TX%,TY%:DRAW  117 
9,100 

770  SOUND  &  1 1 ,  1, 20,  5 

780  MOVE  100, 100 : DRAW  TX%,TY%:DRAW  117 
9,100 

790  VDU  19, 15, 0; 0; 

800  E  %  =  E  % - 5 

810  IF  SX%=BX%  AND  SY%=BY%  THEN  PROC_H 
IT 

82  0  PRINT  TAB ( 7 ,  0 )  ; E% ;  " 

830  ENDPROC 

840  DEF  PROC_HIT 

850  VDU  19,15,1,0,0,0 

860  SOUND  &12, 2, 2, 5 

870  PROC_S I GHT 

880  VDU  19, 15, 0; 0; 

890  H%=H%+1 :B%=B%+1 

900  IF  B  %  =  1 0  THEN  B %  =  0 : E %  =  E %  + 1 0 0 
910  PRINT  TAB (17,0) ; H% 
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920  BX%=RND (30) :BY%=— RND (5) 

930  ENDPROC 

940  DEF  PROC_BOMB 

950  MOVE  BX%*64  +  64 ,  1000- (BY%*32 )  : DRAW6 
40,512 

960  VDU  23, 0, 13, 1, 0; 0; 0; 

970  SOUND  &12, 1, 20, 5 

980  MOVE  BX%*64  +  64 ,  1000- (BY%*32 )  : DRAW6 
40,512 

990  E%=E%-10 

1000  PRINT  TAB ( 7 ,  0 )  ; E% ;  "  " 

1010  VDU  23, 0, 13, 0, 0; 0; 0; 

1020  ENDPROC 

1030  DEF  PROC_S IGHT 

1040  PRINT  TAB (PX%, PY% ) ; 

1050  IF  P  Y  %  =  1 5  THEN  PRINT" _ "  ELSE  PRIN 

■p  n  n 

1060  PRINT  TAB ( SX%,  SY% )  ;  "  [  ]  " 

1070  PX%=SX% : PY%=SY% 

1080  ENDPROC 
1090  DEF  PROC_BIRD 

1100  IF  BX%<  0  OR  BX%  > 1 8  OR  BY%<1  OR  BY% 
>15  THEN  VDU  1 9 , 7 , 2 , 0 , 0 , 0 : GO TO  1130 
1110  IF  NOT (BX%<14  AND  BX%>5  AND  BY%>10 
AND  B Y% < 1 6 )  THEN  VDU  19,7,3,0,0,0 
1120  IF  BY  %  =  1 5  THEN  PRINT  TAB  ( BX% , BY% )  ; 

" _ "  ELSE  PRINT  TAB (BX%, BY%) ; "  " 

1130  IF  ABS (BX%-SX% ) <3  AND  ABS(BY%-SY%) 
<2  THEN  BX%=BX%  +  SGN (BX%  —  SX%)  :BY%  =  BY%  +  SGN 
( BY%— SY% ) 

1140  IF  RND ( 3 ) <  3  THEN  BX%=BX%+ (BX%>8 )  - ( 
BX  %  < 1 2 )  ELSE  BX%=BX%+RND (3) —2 
1150  IF  RND ( 3 ) <  3  THEN  B Y % =B Y% + ( B Y% > 1 2 ) - 
( B  Y  %  < 1 5 )  ELSE  BY%  =  BY%+RND  (3)  -2 
1160  IF  B Y  %  > 1 5  THEN  BY%  =  15 
1170  IF  BX%> 1 8  OR  BX%<  0  THEN  ENDPROC 
1180  IF  B Y  %  < 1  THEN  ENDPROC 
1190  PRINT  TAB (BX%, BY% )  ;  "  [  f sO ]  [  f si ]  " 
1200  IF  BX%< 1 4  AND  BX%>5  AND  BY%>10  AND 
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B Y % < 1 6  THEN  VDU  19,7,1,0,0; 

1210  IF  BX%< 1 2  AND  BX%  >  7  AND  BY%>12  AND 

B Y  %  < 1 5  THEN  PROC_BOMB 

1220  ENDPROC 

1230  DEF  PROC_PLAY 

1240  REPEAT 

1250  PROC_ALTCOLS 

1260  SX%=SX%+ ( INKEY ( -98 )  AND  SX%>0)-( 
INKEY (—67)  AND  SX%<18) 

127  0  SY%  =  SY%- (INKEY  (-105)  AND  SY%<15) 

+  ( I NKE  Y (-73)  AND  SY%>1) 

1280  PROC_S IGHT 

1290  IF  INKEY (-74)  PROC_FIRE  ELSE  PRO 
C_DELAY 

1300  PROC_BIRD 

1310  E%=E%+1 

1320  PRINT  TAB ( 7 ,  0 )  ; E  % 

1330  UNTIL  E  %  <  =  0 

1340  *FX  15 

1350  ENDPROC 

1360  DEF  PROC_DELAY 

1370  TIME=0 : REPEAT  UNTIL  TIME>3 

1380  ENDPROC 

1390  DEF  PROC_INSTR 

1400  PRINT  TAB ( 12 , 1 ) ; CHR$14 1 ; " [ f si ] C [ f s 
2 ] 0 [ f  s  3 ] S [fs4]M[fs5]0 [fs6] S" 

1410  PRINT  TAB ( 12 , 2 ) ; CHR$14 1 ; " [ f si ] C [ f s 
2 ] 0 [ f  s  3 ] S [fs4]M[fs5]0 [fs6] S" 

1420  PRINT' ' "  [fs6]The  aim  of  the  game 
is  to  zap  as  many" 

1430  PRINT" [fs6]bird  like  aliens  as  pos 
sible  using  as" 

1440  PRINT " [ f s 6 ] 1 it t le  energy  as  possib 
le.  The  aliens" 

1450  PRINT" [fs6]will  try  to  fire  at  yo 
ur  Main  Energy" 

1460  PRINT " [ f s 6 ] Re se rve s  down  the  middl 
e  of  your  Ship . " 

1470  PRINT" [fs6] If  they  succeed  it  will 
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drain  10  Units" 

1480  PRINT” [f s6] from  your  reserves.  Eac 
h  time  you  fire" 

1490  PRINT"  [ f  s  6 ] i t  will  take  5  Units  of 
energy  but  the" 

1500  PRINT "[ f s 6 ] energy  reserves  are  bei 
ng  built  up  all" 

1510  PRINT" [fs6] the  time." 

1520  PRINT [fsl] The  controls-" 

1530  PRINT" [fs3]Z  -  left  X  -  right" 
1540  PRINT"[fs3]/  -  down  :  -  up [spc5]R 
ETURN  -  fire" 

1550  PRINT ' " [ f s 2 ] An  extra  100  Units  of 
energy  is  awarded [ fs2 ] every  10  aliens  hi 
t  .  [  f  s  7  ]  " 

1560  PRINT' TAB (5) ; " [fsl]Press [fs8] SPACE 
BAR[fs9]to  continue"; 

1570  *FX  15 

1580  REPEAT  UNTIL  GET=32 

1590  ENDPROC 

1600  DEF  FN_ANOTHER 

1610  *FX  202  32 

1620  PRINT  TAB (7,0) ; " 0  " 

1630  VDU  28,0,14,19,2,12 

1640  PRINT"  You  have  run  outof  energy  a 
nd  have  hi t " ; 

1650  PRINT  ; H  % ;  "  aliens."' 

1660  FOR  W=1  TO  100 

1670  REPEAT  UNTIL  INKEY(-147) 

1680  NEXT 

1690  IF  HIGH<=H%  THEN  HI GH=H% : INPUT " Th i 
s  is  a  high  scoreso  please  enter  yournam 
e  :  "  H  S  $ 

1700  PRINT' "High  score  " ; H% 

1710  PRINT  "by  ";HS$ 

1720  PRINT ' "Another  go  ?"; 

1730  REPEAT  KEY  $  =  GET  $ 

1  7  4  0  UNTIL  K  E  Y  $  =  " Y  "  OR  K  E  Y  $  =  " y "  OR  KE  Y  $ 
=  "  N  "  OR  K E  Y  $  = " n " 
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1750  VDU  26,12 

17  60  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN 
ELSE  =FALSE 


=  TRUE 
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Meteoroids 


Here'  sa  neat  little  program  in  which  you  must  pilot  your  Y  - 
Wing  spacecraft  through  a  field  of  asteroids.  You  use  the  '  X' 
and  '  Zkeys  to  move  yourself  right  and  left.  At  the  end  of  the 
game  (when  you  hit  an  asteroid)  you'  lbe  told  the  number  of 
'  light  years'  you  have  managed  to  traverse. 


10  REM  METEOROIDS 

20 

30  MODE  7 

40  REPEAT  PROC_NEWGAME 

50  PROC_PLAY 

60  UNTIL  NOT  FN_AN OTHER 

70  MODE  7 

80  END 

90 

100  DEF  PROC_NEWGAME 
110  VDU  23, 0, 10, 32, 0; 0; 0; 

120  X%  =  2  0 : D%  =  0 
130  HI T  =  F AL  SE 
140  CL  S 

150  PROC_ME  TEORS 

160  PRINT  TAB (X%, 0 ) ; "V" 

170  PRINT  TAB (10, 15) ; " [fsl]PRESS  ANY  K 
EY  TO  PLAY"; 

180  *FX  15  1 
190  A=GET 

2  00  PRINT  TAB (10,  15)  ; SPC  (22)  ; 

210  ENDPROC 

220  DEF  PROC_ME TEORS 

230  PRINT  TAB (0, 24) ' CHR$ (128+RND (7) ) ; 
240  FOR  A%= 1  TO  4 

2  50  PRINT  TAB (RND  (38)  ,  24  )  ;  "  *"  ; 
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260  NEXT 

270  ENDPROC 

280  DEF  PROC_PLAY 

290  REPEAT  PROC_METEORS 

300  X%=X%+ (( INKEY-98  AND  X%>1)-(INKE 

Y -  6  7  AND  X%  <  3  8 )  ) 

310  PRINT  TAB ( X% ,  0 )  ; 

320  A%  =  135 : IF (USR (&FFF4) AND  &FFFF ) DIV 

5100032  THEN  HI  T  =  TRUE 
330  *FX  19 
340  PRINT "V"; 

350  D%=D%+1 

360  PROC_DELAY (D%) 

370  UNTIL  HIT 

380  PRINT  TAB (X%  — 4, 0)  ; "  [fs8]  [fsl] B  [f s2 
]A[fs3]N[fs4]G[fs9] " 

390  ENDPROC 

400  DEF  PROC_DELAY (d%) 

410  FOR  W%  =  1  TO  5  0  0 -d% 

420  NEXT 

430  ENDPROC 

440  DEF  FN_ANOTHER 

450  PRINT' ' ' [fsl]YOU[fs2] TRAVELLED [ f 
s  3 ]  " ; D % ;  "  [ f  s  7 ] LIGHT [ f  s  6 ] YEARS " 

460  PRINT [fs8] [fs6] ANOTHER  GO?[fs9] 

n  . 

/ 

470  *FX  15  1 

480  REPEAT  KEY  $  =  GE  T  $ 

4  90  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

500  IF  KE  Y  $  =  " Y "  THEN  =TRUE  ELSE  =FALSE 
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Light  Cycles 


In  this  fast-moving  game  you  have  to  ride  your  light  cycle 
around  the  screen  avoiding  the  computer'  scycle  and  making 
sure  you  don'  tun  over  the  trail  left  by  either  your  own  bike  or 
the  computer'  sThe  aim  of  the  game  is  to  enclose  the  computer 
so  that  it  cannot  move.  It,  of  course,  is  trying  to  do  the  same 
thing  to  you. 

You  control  your  cycle  as  follows: 

:  to  move  up 

/  to  move  down 
Z  to  move  left 
X  to  move  right 

If  you  hold  down  the  SHIFT  key,  your  cycle  will  move  twice  as 
fast,  which  gives  you  the  chance  of  riding  through  trails. 
However,  this  option  should  not  be  tried  lightly  because  it  is 
programmed  to  work  only  around  50  per  cent  of  the  time. 

Light  Cycles  was  written  by  Neal  Cavalier-Smith. 


10  REM  LIGHT  CYCLES 

20  REM  By  Neal  Cavalier-Smith. 

30  MODE 1 
40  PROCsetup 
50  PROCboard 
60  REPEAT 
7  0  PROCmove 
80  UNTIL  FALSE 
90  DEFPROCsetup 

100  F  %  =  FALSE 

110  N$  =  " HUMANO ID " :  REM  or  your  name! 

120  SC%=0 
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130  VDU19, 1, 4, 0, 0, 0 
140  VDU23, 0, 10, 32, 0; 0; 0; 

150  VDU19, 2, 1, 0, 0, 0 
160  VDU19, 3, 3, 0, 0, 0 

170  VDU23, 130, 7, 63, 79, 187, 191, 219, 102, 
5  6 

180  VDU23, 131, 240, 220, 254, 98, 89, 217, 22 

6,12 

190  VDU23, 132, 60, 60, 126, 126, 60, 0,0,0 
200  VDU23, 133, 0,24, 60, 126, 126, 126, 126, 

60 

210  D IMN ( 2 ) 

220  N ( 1 ) =32 
230  N (2 ) =-32 
240  DIMC$ (2,2) 

250  C$  (0,  1) =CHR$  (8)  +CHR$  (8) +CHR$  (130)  + 
CHR$ (131) 

260  C$ (1, 0) =CHR$ (132) +CHR$ (11) +CHR$ (8) 
+CHR$ ( 133 ) 

270  C$ (1, 2) =CHR$ (132) +CHR$ (10) +CHR$ (8) 
+CHR$ ( 133 ) 

280  C$  (2,  1) =CHR$  (9)  +CHR$  (130)  +CHR$  (131 

) 

290  ENDPROC 
300  DEFPROCboard 

310  VDU  26, 12, 24, 0; 0; 1279; 908; 

320  COLOUR12 9 : GCOLO , 0 
330  CL  S 

340  F0RX=4T01279  STEP  181 

350  MOVEX, 4 

360  DRAWX, 904 

37  0  MOVE  4 , X 

380  DRAW1 2  7 1 , X 

390  NEXT 

400  COLOUR2 

410  PRINTTAB  (  0 , 2 )  ;  " SCORE .  .  . " 

420  PRINTTAB ( 0 , 1 ); N$ 

430  COLOUR3 

440  PRINTTAB (23, 1) ; "COMPUTER" 
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4  50  VDU  5 
4  60  S  =  0 
47  0  X%  =  6  4  0 
4  80  Y%  =  5 1 2 

4  90  T%  =  64  0 
500  U%=512 
510  M%  =  0 
52  0  N%  =  0 
530  R%=32 
540  S%=0 
550  ENDPROC 

560  DEFPROCmove 
570  PROCread 
580  PROCplay 1 

5  90  IF  INKEY (-1) THENR%  =  2  *R% : S%  =  S%*2 
600  ENDPROC 

610  DEFPROCcomp 
620  GCOLO , 3 

630  IFPOINT (T%+M%,U%+N%) =-lTHENPROCcal 
c 

640  MOVE  T  % , U% 

650  T%  =  T%  +M% 

660  U%  =  U%  +N  % 

670  DRAWT  % , U% 

680  GCOL3 , 2 

690  MOVET%  — 16,  U%  +  16 

700  PRINTC$  ( 1  +  SGN { M%  )  , 1  +  SGN { N  % )  ) 

710  MOVET%— 1 6, U%+1 6 

720  PRINTC$  ( 1  +  SGN { M% )  , 1  +  SGN { N  % )  ) 

730  ENDPROC 
740  DEFPROCplayl 
750  SC%=SC%+1 

760  VDU  4 : PRINT  TAB ( 1 0 , 2 ) ; SC% ; "  " ; : VD 

U  5 

770  GCOLO, 2 
780  MOVEX% , Y% 

7  90  X%  =  X%  +R% 

800  Y%=Y%+S% 

810  P%  =  POINT  (X%, Y%) 
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82  0  IFP  %  =  - 1 ORP  %>lTHENPROCblam 
830  DRAWX%,Y% 

840  GCOL3 , 3 

850  MOVEX%— 16, Y%+16 

860  PRINTC$ ( 1+SGN (R%) , 1+SGN ( S%) ) 

870  PROCcomp 

880  PROCcalc 

890  GCOL3 , 3 

900  MOVEX%— 16, Y%+16 

910  PRINTC$ ( 1+SGN (R%) , 1+SGN ( S%) ) 

920  ENDPROC 
930  DEFPROCcalc 

940  IFPOINT (T%+M%,U%+N%) =1THENENDPR0C 

950  TRY  %  =  0 

960  N=N ( RND (2) ) 

970  TRY%=TRY%+1 

980  P%=POINT (T%+N,U%) 

990  IFP%=-1THEN1010 

1000  IFP%>1THEN1010ELSEM%=N:N%=0:ENDPRO 
C 

1010  P%=POINT (T%,U%+N) 

1020  IFP  %  =  — 1  AND  TRY%<10THEN960 
1030  IFP%>1THEN1040ELSEN%=N:M%=0:ENDPRO 
C 

1040  IF  TRY  %  < 1 0  THEN  960 

1050  F  %  =  TRUE 

1060  PROCblam 

1070  ENDPROC 

1080  DEFPROCread 

1090  IFINKEY (-147 ) THENENDPROC 

1100  R%  =  32  *  (INKEY (-98)  -INKEY (-67)  ) 

1110  IFINKEY ( -1 ) THENR%=2 *R% 

1120  IFR%THENS%=0 : ENDPROC 

1130  S%  =  32  *  (INKEY (-105) -INKEY (-73)  ) 

1140  ENDPROC 
1150  DEFPROCblam 
1160  CLG 
1170  VDU  4 

1180  PRINT  TAB ( 0 , 10) ; 
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1190  IF  F  %  THEN  SOUND  0,-10,6,10  ELSE  S 
OUND  0,-10,4,10 

12  00  IF  F  %  THEN  PRINT'  '  '  "You  won  Wretch 
!  "  '  '  ELSE  PRINT'  '  '  "Ha  Ha  I  beat  you"" 


1210 

PRINT ' ' 

"Another 

Go?"; 

122  0 

REPEAT 

K$=GET$ 

1230 

UNTIL 

K  $  =  "  Y  " 

OR  K  $  =  " N ” 

12  4  0 

IF  K$=" 

Y"  THEN 

RUN 

1250 

VDU  26, 

12,  4 

12  60 

END 
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Ghost  Lane 


In  this  game,  based  loosely  on  the  popular  arcade  game  in 
which  you  have  to  get  a  frog  across  a  busy  highway,  you  have  to 
help  a  number  of  ghosts  (who  have  wandered  out  of  yet 
another  popular  arcade  game)  across  four  lanes  of  traffic. 


10  REM  Ghost  Lane 
20 

30  MODE  5 
40  PROC_INI T 
50  REPEAT 

60  PROC_NEW_GAME 

70  PROC_PLAY 

80  UNTIL  NOT  FN_AN OTHER 


90 

END 

100 

DEF 

PROC_INI T 

110 

VDU 

23, 0, 10, 32, 0; 0; 0; 

120 

VDU 

23,128,56,124,214,214,254,254, 

170,170 

130 

n 

VDU 

23,129,0,238,68,255,255,68,238 

r  U 

140 

n 

VDU 

23,130,0,119,34,255,255,34,119 

r  U 

150 

VDU 

23,131,145,82,0,192,3,0,74,137 

160 

VDU 

23, 132, -1,-1, -1,-1, -1,-1, -1,-1 

17  0 

VDU 

19,3,2,0,0,0 

180 

ENDPROC 

190 

DEF 

PROC_NEW_GAME 

200 

II 

</> 

C 

[fsl]  [fsl]  [fsl]  [fsl]  [fsl]  [ 

fsl]  [fsl] [fsl]  [fsl]  [fsl]  " 

210  B$  =  "  [fsl]  [fsl]  [fsl]  [fsl]  [spc3] 
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[fsl]  [fsl]  [fsl]  " 

220  C$  =  "  [ f s4 ]  [  f s4 ]  [  f  s  2 ]  [fs2]  [fs2] 

[ f  s 2 ]  [  f  s 2 ]  [ f  s 2 ]  [ spc5 ]  " 

230  D$  =  "  [ f  s  2 ]  [  f  s  2 ]  [  f  s  2 ]  [fs2]  [fs2][f 

s  2 ]  [ spc3 ]  [  f  s  4 ]  [  f  s  4 ]  [ f  s  2 ]  [fs2]  [spc3]  " 

240  COLOUR  131 

250  VDU  26,12,28,0,18,19,5 

260  COLOUR  128: VDU  12,26 

270  PA%=8 : PD%=18 

280  PAE%=8 : PDE%=18 

290  L%=5 : S%=0 

300  COLOUR  131: COLOUR  1 

310  PRINT  TAB ( 0, 20 ); "LIVES  :";TAB(8,20 

)  ;  "  [fsO]  [f sO]  [fsO]  [f sO]  " 

320  ENDPROC 
330  DEF  PROC_PLAY 
340  COLOUR  128 
350  REPEAT 

360  PAE%=PA% : PDE%=PD% 

370  IF  INKEY  (-67)  THEN  PA%  =  PA%  +  1:IF 
P A%> 1 9  THEN  P A%= 1 9 

380  IF  INKEY  (-98)  THEN  PA%  =  PA%-1:IF 
P A%<  0  THEN  P A%  =  0 

390  IF  INKEY  (-105)  THEN  PD%=PD%  +  1:IF 
PD%>1 8  THEN  PD%=1 8 

400  IF  INKEY  (-73)  THEN  PD%  =  PD%-1:IF 
P  D  %  <  4  THEN  PD%  =  4 
410  COLOUR  1 

420  PRINT  TAB ( P AE  % , PDE  % )  ;  "  ";TAB(PA% 

, P D % )  ;  "  [fsO] 

430  Y%=PA%+1 

440  COLOUR  2 

450  A$  =  RIGHT$  (A$,  1)  +LEFT$  (A$,  19) 

4  60  B$  =  RIGHT$  (B$,  1)  +LEFT$  (B$,  19) 

47  0  C$=MID$  (C$, 2)  +LEFT$  (C$,  1) 

480  D$=MID$  (D$,  3)  +LEFT$  (C$, 2) 

490  PRINT  TAB ( 0 , 6 ) ; A$ ; TAB ( 0 , 9 ) ; B$ ; TA 
B ( 0, 13 ) ; C$ ; TAB (0,16) ; D$ 

500  IF  PD%  =  6  AND  MI  D $  (  A$ , Y % ,  1 )  < >  "  " 
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THEN  PROC_HIT 

510  IF  PD%  =  9  AND  MID$  (B$,Y%,  1)  <>"  " 

THEN  PROC_HIT 

52  0  IF  PD%  =  1 3  AND  MID  $  (  C $ , Y % ,  1 )  < >  "  " 
THEN  PROC_HIT 

530  IF  PD%  =  1 6  AND  MID  $  ( D $ , Y % ,  1 )  < >  "  " 
THEN  PROC_HI T 

540  IF  PD%=4  THEN  PROC_HOME 

550  FOR  D %  =  0  TO  50:NEXT 

560  UNTIL  L%=0 

570  ENDPROC 

580  DEF  PROC_HIT 

590  COLOUR  1 

600  PRINT  TAB (PA%, PD% )  ;  "  [  f s3 ]  " 

610  SOUND  0,-10, 4,1 

620  TIME=0 : REPEAT  UNTIL  TIME>100 

630  L%=L%— 1 

640  PROC_NEXT_ATTEMP  T 

650  ENDPROC 

660  DEF  PROC_HOME 

670  S%=S%+1 

680  COLOUR  1 : COLOUR  131 

690  PRINT  TAB (0, 0) ; STRING$ (S%, " [f sO]  " 
); TAB ( 9, 0 );" SAFELY  HOME" 

700  PRINT  TAB ( 2 , 2 ) ; " SCORE  IS  ";100*S% 
710  PROC_NEXT_ATTEMP  T 
720  ENDPROC 

730  DEF  PROC_NEXT_ATTEMP  T 
740  COLOUR  1 

750  PRINT  TAB (PA%, PD% )  ;  " 

760  PA%=8 : PD%=18 

770  COLOUR  131: COLOUR  1 

780  IF  L%=0  THEN  PRINT  TAB (8, 20);"  "  E 

LSE  PRINT  TAB (8, 20)  ; STRING$  (L%-1,  "  [fsO] 

ii  \  .  ii  n  . 
ii  I 

790  COLOUR  128 
800  ENDPROC 
810  DEF  FN_ANOTHER 
82  0  *  F  X  15  1 
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830  COLOUR  1 : COLOUR  131 

840  PRINT  TAB (0, 22) ; "There  are  no  more 
ofyou  left!" 

850  PRINT ' "Another  Go  ?"; 

860  REPEAT  K$=GET$ 

87  0  UNTIL  K $  =  " Y "  OR  K$  =  "N" 

880  =  ( K  $  = " Y " ) 
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Bomb  Raid 


In  this  program,  based  on  one  by  Gwyn  Dewey,  you  are  in 
control  of  an  aeroplane  which  has  to  make  an  emergency 
landing.  Unfortunately,  in  order  to  land  you  must  destroy  the 
buildings  which  are  in  your  way. 

There  are  full  instructions  within  the  program.  Here'  sthe 
listing  so  you  can  throw  your  weight  (and  a  few  bombs)  about. 


0 


10  REM  BOMB  RAID 

20 

30  MODE  5 
40  PROCINIT 
50  REPEAT 
60  PROCINST 
70  REPEAT 
80  PROCBUILD 

90  PROCPLAY 

100  UNTIL  FLAG% 

110  UNTIL  NOT  FNAGAIN 
120  MODE  7 
130  END 

140  DEF  PROCINIT 

150  DIM  B% (20)  , S  (20)  , COL%  (1,  5) 

160  DATA  0, 1, 1, 4, 0, 5, 0, 4, 1, 5, 4, 5 
170  FOR  AC=  0  TO  5 
180  FOR  LC=0  TO  1 
190  READ  COL% ( LC, AC ) 

200  NEXT  LC 

210  NEXT  AC 

220  VDU  19, 2, 6, 0, 0; 19, 3, 2, 0, 0; 

2  30  FOR  LC=  0  TO  1 : VDU 1 9 , LC , COL%  ( LC ,  0 )  , 
0 ; : NEXT 

240  VDU  23, 0, 10, 32; 0; 0; 0 
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250  PROCCHARS 
260  HIGH%=0 
270  ENDPROC 
280  DEF  PROCCHARS 


2  90 

VDU 

23, 

128, 

254, 146, 

146, 

254 

, 254, 146 

,  146, 

2  54 

300 

VDU 

23, 

129, 

0,  0, 0, 0, 

0,56 

, 124, 254 

310 

VDU 

23, 

130, 

254, 146, 

146, 

254 

, 254, 146 

,  146, 

2  54 

320 

VDU 

23, 

131, 

254, 146, 

146, 

254 

, 254, 146 

,  146, 

2  42 

330 

VDU 

23, 

132  , 

252,73,145,- 

1,253,249,3 

2,248 

34  0 

VDU 

23, 

133, 

193,224, 

240, 

-1 , 

127, 63, 3 

3,195 

350 

VDU 

23, 

134  , 

-1, -1, -1 

,  -1, 

-1 , 

-1, -1, -1 

360 

VDU 

23, 

135, 

40,56,16 

,  56, 

56, 

56,56,16 

370 

ENDPROC 

380 

DEF 

PROCBUILD 

390 

COLOUR 

0 

400 

WA%  = 

WA% 

+  1 

410 

FOR 

LC  = 

0  TO 

1 

420 

VDU  1  9 

,  L  C , 

COL% (LC, 

(WA% 

-1) 

MOD  6 )  , 

o 

o 

o 

430 

NEXT 

440 

VDU 

17, 

130, 

12,17,131,28 

,  o. 

31,19,30 

,12,26,17, 

3,17, 130 

450 

FOR 

A  %  = 

3  TO 

17 

460  H%=RND (13) 

470  COLOUR  RND ( 2 ) - 1 

480  PRINT  TAB ( A%, 2 9 ) ; " [ f s3 ] " 

4  90  FOR  H  =  2  8  TO  (28-H%)  STEP-1 

500  PRINT  TAB (A%,  H)  ;  "  [ f s2 ]  " 

510  NEXT  H 

520  COLOUR  RND ( 2 ) - 1 

530  PRINT  TAB (A%, H) ; " [fsl] " 

54  0  B% ( A%  )  =H%  +  2 

550  S (A%) =150/ (B% (A%) +1) 

560  NEXT  A% 
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INT  ( 


570  COLOUR  1 : PRINT  TAB(0,0);"SC 

S+  .  9) 

580  PRINT  TAB (10, 0) ; "HI  ";HIGH% 

5  90  N%  =  N%  —  50 
600  ENDPROC 
610  DEF  PROCPLAY 
620  F%=0 : Y%=0 :X1%=0 :Y1%=1 
630  COLOUR  1 : COLOUR  130 
64  0  REPEAT  Y  %  =  Y%  + 1 
650  X%=0 

660  REPEAT  X%=X%+1 
670  IF  F  %  =  1  THEN  PROCBOMB : GOTO 6 9 0 

680  IF  INKEY  (-99)  THEN  X1%  =  X%  MOD2 

0 :Y1%=Y% :F%=1 : PROCBOMB 

690  COLOUR  1 : PRINT  TAB (X%-1,Y%)  ;  " 

[ f s5 ] [ f s4 ] " 

7  00  FOR  E  %  =  0  TO  N  % : NEXT 

710  SOUND  &10, -10, 15, 1 : SOUND  &11,0 

,  200,1 

720  C%=FNCODE (X%+2, Y%) 

730  IF  C%>12  8  AND  C%<134  THEN  FLAG 

%=TRUE  ELSE  FLAG%=FALSE 

740  UNTIL  X% > 1 9  OR  F LAG% 

750  PRINT  TAB ( 1 8 , Y% ) ; " 

760  UNTIL  ( X% > 1 9  AND  Y%>27)  OR  FLAG% 

770  IF  FLAG%  THEN  PROCCRASH : ENDPROC 

780  PROCTUNE 

790  S  =  S  +  2  5  0 

800  ENDPROC 

810  DEF  PROCBOMB 

820  COLOUR  1 

830  Y1%=Y1%+1 

840  IF  Yl%>29-B% ( X 1 % )  THEN  S=S+FNSCORE 
850  IF  Y 1  % > 2  9  THEN  PROCMI S S : GOTO  900 
860  PRINT  TAB (Xl%, Yl% )  ;  "  [  f s7 ]  " 

87  0  SOUND  18, -10, 255-Yl%,  1 
880  COLOUR  2 

890  PRINT  TAB (X1%,Y1%— 1) " 

900  ENDPROC 
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910  DEF  PROCMISS 

920  F%=0 : COLOUR  2 

930  PRINT  TAB  (X1%,Y1%  —  1)  ;  "  " 

940  S (Xl%) =0 :B% (Xl%) =0 

950  ENDPROC 

960  DEF  FNCODE (X%, Y%) 

970  LOCAL  A% , C% : VDU  31,X%,Y% 

980  A%  =  1 3  5 

990  = ( U  SR ( &  FFF  4 )  AND  &FFFF ) D I V  &100 
1000 

1010  DEF  PROCCRASH 

102  0  PRINT  TAB (X%-1 , Y% )  ;  "  [  spc3 ]  " 

1030  IF  F %  =  1  THEN  PROCBOMB:FOR  W=0  TO  1 
0  0 : NEXT : GOTO  1030 
104  0  X%  =  X%*64 :Y%  =  1024  -  (Y%*40) 

1050  *FX  9,5 

1060  *FX  10,5 

1070  VDU  19, 2, 9, 0, 0; 

1080  SOUND  0,-15,15,100 
1090  SOUND  1,0,200,100 
1100  FOR  W%=0  TO  5000: NEXT 
1110  VDU  19, 2, 6, 0, 0; 

1120  FOR  Z%=0  TO  250 
1130  GCOL  0 , RND ( 4 ) - 1 

1140  PLOT  69, X%+RND ( 32 0 ) , Y%+RND ( 20 0 ) 
1150  NEXT 

1160  IF  ( S+ . 9 ) >HIGH%  THEN  HIGH%=(S+.9) 

1170  ENDPROC 

1180  DEF  PROCTUNE 

1190  RESTORE  1280 

1200  FOR  N= 1  TO  9 

1210  READ  P , D 

1220  SOUND  17,— 15,P,D 

1230  SOUND  18, -15, P+48, D 

1240  SOUND  19, -15, P+96, D 

1250  FOR  X=  0  TO  400  :NEXT 

1260  NEXT 

1270  ENDPROC 

1280  DATA  73,20,93,20,73,3,73,7,65,3,61 
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,3,65,7,73,7,61,10 
1290  DEF  FNSCORE 

1300  PRINT  TAB (3, 0)  ; INT (S  +  S (Xl%) +.  9)  ; 
1310  SOUND  16,-15,5,10 
1320  =S(X1%) 

1330  DEF  FNAGAIN 
1340  COLOUR  1 

1350  PRINT  TAB (0,2);"  WOULD  YOU  LIKE  TO 

n 

1360  PRINT  "  PLAY  AGAIN  (Y/N)  ?"; 

1370  REPEAT  AN  $  =GE  T  $ 

1380  UNTIL  AN  $  = " Y "  OR  AN$  =  "y"  OR  AN$  = 
"N"  OR  AN  $  = " n " 

1390  IF  AN  $  = " Y "  OR  AN$  =  "y"  THEN  =TRUE  E 
LSE  =FALSE 
1400  DEF  PROCINST 
1410  VDU  17,131,17,1,12 
1420  PRINT '"[ spc3 ] BOMBER  COMMAND 
1430  COLOUR  0:PRINT"  DROP  BOMBS  ON  TOW 
N" 

1440  PRINT "BY  PRESSING  SPC  BAR." 

1450  PRINT "ONLY  ONE  BOMB  IN  AIR" 

1460  PRINT "AT  ANY  ONE  TIME."'' 

1470  PRINT"  PLANE  MOVES  DOWN  AT" 

1480  PRINT "EACH  PASS  OVER  TOWN."' 

1490  PRINT " GAME  ENDS  WHEN  PLANE" 

1500  PRINT "HITS  BUILDING."'  ' 

1510  PRINT "150  PTS  PER  BUILDING"; 

1520  PRINT  TAB ( 9, 24 ) ; " & " 

1530  PRINT "250  PTS  ON  LANDING."' 

1540  *FX  15  1 

1550  PRINT ' TAB ( 3 ); "PRESS  SPACE  BAR" 

1560  PRINT  TAB ( 6 ) ; "TO  PLAY" 

1570  A=GET 

1580  S=0 :N%=300 :WA%=0 
1590  ENDPROC 
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Zombie 


Now  you  can  take  on  the  challenge  of  Zombie  in  this  exciting 
version  of  the  game  based  on  a  program  by  Raymond  Blake. 

You  are  stranded  on  an  island  of  cannibal  zombies.  Your 
only  hope  of  escape  is  to  lure  them  into  the  pot-holes  scattered 
about  the  island.  The  trees  on  the  island  hinder  the  progress  of 
both  man  and  zombie,  and  falling  into  a  pot-hole  means  eternal 
entrapment. 

The  game  is  made  more  difficult  by  the  fact  that  you  can 
move  in  only  four  directions.  The  zombies  can  not  only  move 
up,  down,  right  and  left,  but  can  also  move  diagonally. 

You  need  not  panic,  however,  as  the  zombies  are  pretty 
short-sighted  and  this  gives  you  a  distinct  edge  with  your  20/20 
vision. 


10  ON  ERROR  GOTO  1240 
20  REM  ZOMBIE 
30 

40  MODE  1 
50  PROC_INI T 
60  REPEAT 

70  PROC_NEW_GAME 
80  PROC_PLAY 
90  UNTIL  NOT  FN_AN OTHER 
100  CL  S 
110  END 
12  0 

130  DEF  PROC_INI T 

140  VDU  23, 0, 10, 32, 0; 0; 0; 

150  VDU  23, 128, 0, &3C, &5A, &FF, &C3, &42, & 
3  C ,  0 

160  VDU  23,  129,  8, &7E, &90, &3C, &24,  &24  ,  & 
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24, &33 

170  VDU  23,  130, &38, &44, &82, &8A, SEE,  &28 
, &28, &44 

180  VDU  19,3,2,0,0,0 
190  DIM  A% ( 6 )  , B%  ( 6  ) 

2  00  *  F  X  4  1 

210  ENDPROC 

220  DEF  PROC_NEW_GAME 

2  30  CL  S 

240  P%=10 :Q%=15 
250  PROC_TREE  S 
2  60  PROC_HOLE  S 
270  PROC_ ZOMBIES 
280  ENDPROC 
290  DEF  PROC_TREES 
300  COLOUR  3 
310  FOR  I%=1  TO  40 

320  PRINT  TAB (RND (39)  -1, RND (31)  -1)  ;  "  [f 
s  2  ]  "  ; 

330  NEXT  1% 

340  ENDPROC 

350  DEF  PROC_HOLES 

360  COLOUR  2 

370  FOR  I%=1  TO  12 

380  PRINT  TAB (RND (39) -1, RND (31) -1) ; "o" 

r 

390  NEXT 

400  ENDPROC 

410  DEF  PROC_ZOMBIES 

420  COLOUR  1 

430  FOR  I%=1  TO  6 

440  REPEAT 

450  X%=RND (36) : Y%=RND (30) 

460  UNTIL  FNC (X%, Y%) =32 
470  A% (1%) =Y%:B% (1%) =X% 

480  PRINT  TAB ( B%  ( I  % )  , A%  (1%)  )  ;  "  [fsO] 

490  NEXT 

500  COLOUR  2 

510  REPEAT  Q%=Q%+1 
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520  UNTIL  FNC (  Q%  , P  %  ) =32 
530  PRINT  TAB (Q%, P% )  ;  "  [  f si ]  "  ; 

540  ENDPROC 

550  DEF  FNC ( X% ,  Y%  ) 

560  VDU  31, X%, Y% 

57  0  A%  =  1 3  5 

580  = (USR (&FFF4) AND&FFFF) DIV&100 

590  DEF  PROC_PLAY 

600  REPEAT 

610  DIE=FALSE 

620  *FX  15  1 

630  REPEAT 

640  A%=GET 

650  UNTIL  A%  >13  5  AND  A%<140 

660  M%= (  ( A%  =  1 3  8 )  *  { P  %  <  3  0 )  ) - (  (A%  =  139)  * 

(P%>0)  ) 

670  N%= (  ( A%  =  1 3  7 )  *  { Q  %  <  3  8  )  )  - (  (A%  =  136)  * 

(  Q%>  0  )  ) 

680  PRINT  TAB ( Q% , P % )  ;  " 

690  C%=FNC (Q%+N%, P%+M%) 

700  IF  C%=ASC"  [fsO]  "  THEN  DIE  =  TRUE 

710  IF  C%=ASC"o"  THEN  PROC_PIT 

720  IF  C%=32  THEN  P %=P %+M% : Q%=Q%+N% 

730  COLOUR  2 

740  IF  DIE  THEN  900 

750  PRINT  TAB (Q%, P% )  ;  "  [  f si ]  "  ; 

760  COLOUR  1 

770  FOR  I%=1  TO  6 

780  IF  A% ( I % ) =99  THEN  840 
790  A1%  =  SGN ( P  %  — A%  (1%)  )  :B1%  =  SGN(Q%-B% 

(1%)  ) 

800  PRINT  TAB (B%  ( 1% )  , A% ( 1% )  )  ;  " 

810  IF  FNC  (B% (1%)  +B1%, A%  (1%) +A1%) =32 
THEN  A%  (1%) =A% (1%) +A1% :B%  (1%) =B%  (1%)  +B1 
%  ELSE  PROC_ZOMBY 

82  0  PRINT  TAB (B%  ( 1% )  , A% ( 1% )  )  ;  "  [  f s 0 ]  " 

r 

830  IF  A%  ( I % ) =P  %  AND  B  %  ( I % )  =Q  %  THEN 
D I E  =  TRUE :  I%  =  6 
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84  0  NEXT  1% 

850  SOUND  &  1 1  , -10, 10, 2 

8  60  G%  =  0 

870  FOR  I%=1  TO  6 

880  IF  A% ( I % ) =99  THEN  G%=G%+1 

890  NEXT  1% 

900  UNTIL  G%=6  OR  DIE 

910  IF  DIE  THEN  PRINT  TAB(Q%,P%);" 

920  ENDPROC 
930  DEF  PROC_P IT 
940  DIE=TRUE 

950  PRINT  TAB ( 0, 31 ); "Whoops !  You  just 
found  a  pit!"; 

960  FOR  S%=101  TO  5  STEP-4 
970  SOUND  2, -10, S%, 2 
980  NEXT 

990  SOUND  &110, -10, 5, 5 : SOUND  &102,-10, 
5,  3 

1000  ENDPROC 

1010  DEF  PROC_ZOMBY 

1020  C%=FNC (B% (1%) +B1%,A% (1%) +A1%) 

1030  IF  C%=ASC "  [ f  s  0 ]  "  THEN  ENDPROC 
1040  IF  C%  =  AS  C "  [ f  s  2 ]  "  THEN  ENDPROC 
1050  IF  C%=ASC" [ f si ] "  THEN  DIE=TRUE : END 
PROC 

1060  PRINT  TAB ( 0, 31 ); "Whoops !  There  goe 
s  a  Zombie . " ; 

1070  COLOUR  2 : PRINT  TAB ( B % ( I % ) +B 1 % , A% ( I 
%) +A1 % ) ; "o" ; 

1080  FOR  S%=101  TO  5  STEP-4 
1090  SOUND  2, -10, S%, 2 
1100  NEXT 

1110  SOUND  &110, -10, 4, 5 : SOUND  &102,-10, 
5  ,  5 

1120  PRINT  TAB (0, 31)  ; SPC  (29)  ; 

1130  A% (1%) =99 
1140  COLOUR  1 
1150  ENDPROC 
1160  DEF  FN_ANOTHER 


71 


1170  COLOUR  2 

1180  IF  DIE  THEN  PRINT  TAB ( 0 , 3 ) ; " The  zo 
mbies  claim  another  victim  !"  ELSE  PRINT 
TAB  (0, 3)  ; "You  have  escaped  the  zombies! 

II 

1190  PRINT"  '  "Another  Game  ?"; 

1200  REPEAT  K$=GET$ 

1210  UNTIL  K  $  =  " Y "  OR  K$  =  "N" 

1220  IF  K  $  = " N "  THEN  *FX  4 
1230  = ( K  $  = " Y  "  ) 

1240  MODE  6 
1250  *FX  4 

1260  REPORT : PRINT"  at  line  " ; ERL 
1270  END 
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Two-Wall  Smash 


This  game,  patterned  after  one  written  by  Mike  O'  Neill  js  a 
two-wall  version  of  the  popular  arcade  game  which  is  often 
called '  Breakout'  . 

The  aim  of  the  game  is  to  destroy  all  the  bricks  in  the  walls 
by  controlling  the  ball  with  your  bat.  The  bat  moves  horizon¬ 
tally  at  the  bottom  of  the  screen.  The  ball  moves  at  two 
different  angles,  and  there  are  three  bat  sizes.  The  bat  gets 
smaller  as  the  game  progresses  -  after  a  certain  number  of  hits, 
when  the  ball  reaches  the  second  wall  and  when  the  ball  hits 
the  top  of  the  screen. 

The  colour  of  the  brick  determines  how  much  it  is  worth. 
The  high  score  displayed  on  the  screen,  next  to  the  current 
score.  The  number  of  the  ball  in  play  is  also  shown.  The  high 
score  is  updated  at  the  end  of  each  game. 


10  REM  TWO-WALL  SMASH 
20 

30  MODE  7 
40  PROC_INI T 
50  REPEAT 
60  PROC_NEWGAME 
70  REPEAT  ball=ball-l 
80  PROC_NEWBALL 

90  PROC_PLAY 

100  UNTIL  ball=0 

110  UNTIL  NOT  FN_AN OTHER 
120  END 
130 

140  DEF  PROC_INI T 

150  VDU  23, 0, 10, 32, 0; 0; 0; 

160  brick$="  |  |  4" 

170  big$="/ / /" 
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180  mid$="/ /" 

190  s m 1  $  = " /  " 

2  00  HI GH=  0 
210  PROC_WALLS 

220  PRINT  TAB ( 9, 9) ; " [ f si ] [ f s8 ] WALL  SMA 
S  H  [  f  s  9  ]  " 

230  PRINT  TAB (0, 15) [fs3] Press  any  ke 
y  to  play"; 

240  *FX  15  1 

250  dummy=GET 

260  VDU  26 

270  ENDPROC 

280  DEF  PROC_NEWGAME 

290  S%=0 : bat $=big$ 

300  CL  S 

310  PROC_WALLS 
320  ball=3 :B%=20 
330  ENDPROC 
340  DEF  PROC_WALLS 

350  PRINT  TAB (0, 0) ; CHR$141; " [fsl] SCORE 
:  [f s6] 0 "  ;  TAB (20,0);"[fs2]HIGH  :  [ f  s  6 ]  "  ; H 

IGH 

360  PRINT  TAB (0, 1) ; CHR$141; " [fsl] SCORE 
:  [f s6] 0 "  ;  TAB (20,l);"[fs2]HIGH  :  [ f  s  6 ]  "  ; H 

IGH 

370  PRINT  TAB ( 0, 2 )  ;  "  [  f c7 ]  " ; STRING$  ( 38 , 

"  p  "  )  ;  "  0  "  ; 

380  FOR  Y%  =  3  TO  23 

390  PRINT  TAB (0, Y%) ; " [fc7] 5" ; TAB (38, Y% 

)  ; "  [ f c7 ] 5  "  ; 

400  NEXT 

410  PRINT  TAB (2, 22 )  ; "  [f c6]  "  ; 

420  PROC_WALL ( 4 ) 

430  PROC_WALL (10) 

440  ENDPROC 

450  DEF  PROC_WALL (ROW%) 

460  VDU  26 

47  0  FOR  Y%  =  0  TO  3 

480  PRINT  TAB (3, Y%+ROW%) ;CHR$ (145+Y%) ; 
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STRING$ (11, brick$) ; 

490  NEXT 
500  W%=88 

510  VDU  28,3,23,36,0 

520  ENDPROC 

530  DEF  PROC_NEWBALL 

54  0  PRINT  TAB (B%, 22 )  ; SPC (LEN (bat$ )  )  ; 

550  X%=RND (33) : Y%=21 

560  DX%=(  (X%>21)  *2)  +1 

57  0  DY%  =  -1 : PRINT  TAB ( X% , Y% )  ;  " 0  "  ; 

580  B%  =  20 :PRINT  TAB ( B% ,  2 2  )  ; bat $ ; 

590  PRINT  TAB (0,  23)  [f si] Balls  :[fs6] 

" ;ball; 

600  ENDPROC 

610  DEF  PROC_PLAY 

620  REPEAT 

630  PROC_MOVE ( INKEY-98 , INKEY-67 ) 

640  PROC_BALL 

650  FOR  delay=l  TO  ( 1 5 0 0 -S % ) D I VI 0 : NE 
XT 

660  PROC_MOVE ( INKEY-98 , INKEY-67 ) 

670  UNTIL  Y%  >  2 1 

680  PRINT  TAB (X%, Y%)  ;  "0"  ; 

690  SOUND  0,-10,6,10 

700  FOR  de 1 ay= 1  TO  2000:NEXT 

710  PRINT  TAB ( X% , Y % )  ;  " 

720  ENDPROC 

730  DEF  PROC_MOVE (L%, R%) 

740  b%=B% 

750  IF  L%  AND  B%>1  THEN  B%=B%-1 
7  60  IF  R%  AND  B% < ( 3 4 -LEN ( b at  $ )  )  THEN  B 
%=B%+1 

77  0  IF  B%Ob%  PRINT  TAB  ( b%  ,  2  2  )  ;  SP  C  (  LEN 
( b  at  $ )  )  ; 

780  PRINT  TAB (B%, 22) ;bat$; 

790  ENDPROC 

800  DEF  PROC_BALL 

810  IF  X%=1  THEN  DX%= 1 

82  0  IF  X%  =  3  3  THEN  DX%  =  -1 
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830  IF  Y%  =  3  THEN  D  Y  %  =  1 

840  IF  Y%=2 1  AND  (X%+1)>=B%  AND  (X%-1) 
<  (B%+LEN  (bat $ )  )  PROC_return  ELSE  PRINT  T 
AB ( X  % , Y% )  ; "0" ; 

850  VDU  31,X%,Y%,32 
860  X%=X%+DX% : Y%=Y%+DY% 

87  0  PROC_TE  S  T 
880  ENDPROC 
890  DEF  PROC_TEST 
900  VDU  31, X%, Y% 

910  A%  =  135:M%= (USR(&FFF4) AND  &  FFFF ) DIV& 
100 

92  0  IF  Y%  >  2  0  THEN  ENDPROC 

930  IF  M%<>32  THEN  PROC_HIT  ELSE  PRINT 
"  0  "  ; 

940  ENDPROC 

950  DEF  PROC_return 

960  PRINT  TAB (X%, Y%)  ;  "0"  ; 

970  SOUND  512,-10,200,2 
980  SOUND  2,-10,200,1 
990  REPEAT  UNTIL  ADVAL(-7)>14 
1000  D Y  %  =  —  1 
1010  ENDPROC 
1020  DEF  PROC_HIT 
1030  IF  Y% > 2  0  THEN  ENDPROC 
1040  DY  %  =  — DY  % 

1050  SOUND  511,-10,100,1 

1060  IF  X%MOD  3  =  0  THEN  PRINT  TAB(X%-2,Y% 
);"  O" ; : IFDX%<0THENDX%=1 
107  0  IF  X%MOD  3  =  1  THEN  PRINT  TAB(X%,Y%); 
"O  " ; : IFDX%>0THENDX%=-1 
1080  IF  X%MOD  3  =  2  THEN  PRINT  TAB(X%-1,Y% 
)  ?  "  O  "  ; 

1090  W%=W%-1 

1100  IF  Y%  >  8  THEN  P %  =  4 - (  ( Y% +  2 ) MOD 4 )  ELS 
E  P%=14- ( Y%MOD4 ) 

1110  S%=S%+P% 

1120  PRINT  TAB ( 7 , 0 ) ; S% ; 

1130  PRINT  TAB ( 7 , 1 ) ; S% ; 
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1140  IF  W%=0  THEN  PROC_EXTRABALL 

1150  ENDPROC 

1160  DEF  PROC_EXTRABALL 

1170  PRINT  TAB ( X% , Y % )  ;  "  " 

1180  PRINT  TAB (B%, 22 ) ; SPC (LEN (bat$ ) ) ; 
1190  PROC_WALL ( 4 ) 

1200  PROC_WALL (10) 

1210  PROC_NEWBALL 

1220  IF  bat $=mid$  THEN  bat$=sml$ 

1230  IF  bat $=big$  THEN  bat$=mid$ 

1240  ENDPROC 

1250  DEF  FN_ANOTHER 

1260  IF  S%>HIGH  THEN  PRINT  TAB(25,0);S% 
; TAB (25, 1) ; S% 

1270  VDU  28,3,20,36,4,12 

1280  PRINT  TAB (12, 5) [f si] GAME  OVER[fs 
7  ]  " 

1290  PRINT ' ' 

1300  IF  S%>HIGH  THEN  H I GH= S % : P RI NT  TAB ( 
7);"[fs8]  [ f s 3 ] A  NEW  HIGH  SCORE!  [fs9]" 
1310  PRINT ' fs2 ] Another  game  Y/N  ?"; 
1320  REPEAT  KEY  $  =  GE  T  $ 

133  0  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

1340  VDU  26, 12 

1350  IF  KE  Y  $  =  " Y "  THEN  =TRUE  ELSE  =FALSE 
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Sharp  Shooter 


In  this  fun  program,  based  on  an  idea  from  Ant  Hurrion,  you 
control  the  man  on  the  right  of  the  cacti  on  your  screen.  You 
must  shoot  it  out  with  the  computer  gunman. 

The  winner  is  the  marksman  who  first  gains  100  points. 
There  are  several  levels  of  difficulty,  and  you'  reable  to  choose 


the  level  at  which  you'  11  start  play  at  the  start  of  the  game. 

10 

REM 

Sharp  Shooter 

20 

30 

MODE 

7 

40 

PROC 

_  I N  I  T 

50 

PROC 

_ I N  S  TR 

60 

REPEAT  MODE  5 

70 

PROC_NEWGAME 

80 

P  RO  C_P  LAY 

90 

UNTIL  NOT  FN_ANOT  HER 

100 

MODE 

7 

110 

END 

120 

130 

DEF 

PROC_INI T 

140 

VDU 

23, 0, 10, 32, 0; 0; 0; 

150 

VDU 

23,128,0,3,7,3,3,7,15,27 

160 

VDU 

23,129,0,192,224,192,192,224,2 

40,216 

17  0 

VDU 

23,130,7,3,1,3,7,12,24,48 

180 

VDU 

23,131,224,192,128,192,224,48, 

24,12 

190 

VDU 

23,132,0,0,0,1,3,1,113,31 

200 

VDU 

23,133,0,0,0,128,192,128,128,1 

28 

210 

VDU 

23,134,1,1,1,15,9,9,25,0 

220 

VDU 

23,135,128,128,128,128,128,136 
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,  24  8,0 

230  VDU  23,136,0,0,0,1,3,1,1,1 
240  VDU  23,137,0,0,0,128,192,128,142,2 
4  8 

250  VDU  23,144,1,1,1,1,1,9,15,0 
260  VDU  23,145,128,128,128,240,144,144 
,152,0 

270  VDU  23,146,48,48,52,52,60,24,24,24 
280  VDU  23,147,0,0,0,56,56,56,0,0 
290  VDU  23,148,0,192,97,51,25,77,127,0 
300  VDU  23,149,0,3,134,204,152,178,254 

,  0 

310  ENVELOPE  1 , 1 , - 1 , - 2 , - 4 , 1 , 1 , 1 , 1 2 6 , 0 , 
0,-10, 126, 50 
320  ENDPROC 
330  DEF  PROC_INSTR 

340  PRINT  TAB (12, 1) [f si] SHARP  SHOOTE 
R  [  f  s  7  ]  " 

350  PRINT ' " [ f s 6 ] You  control  the  Gunman 
on  the  right  of" 

360  PRINT " [ f s 6 ] t he  screen  and  must  sho 
ot  the  computer" 

370  PRINT "[ f s 6 ] gunman  on  the  left  of  t 
he  screen."' ' 


380 

PRINT 

i  ii 

[fs2]  To  move  UP  press  [f s3 

]  A" 

390 

1  7  it 

PRINT 

i  ii 

[fs2]To  move  DOWN  press  [fs3 

J  ^ 

400 

PRINT 

i  ii 

[ f  s  2 ] To  FIRE  press  [fs3]RETU 

RN" 

410  PRINT 
t  s  wins!" 

i  i 

" [fs6] The  first  to  100  poin 

420 

PRINT 

i  i 

" [fs6]Difficulty [fs3] 1-9 [fs 

6]  (9 

easy  !  ) 

[  f  s  3  ]  "  ; 

430 

REPEAT 

D%  =  GET-ASC " 0  " 

440 

UNTIL 

D  %  >  0  AND  D  %  < 1 0 

450 

PRINT 

1  1 

' " [fsl]GOOD  LUCK  " ; : IF  D%<5 

THEN 

PRINT 

"  SUCKER !  " 

460  DU=INKEY (200) 
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470  ENDPROC 

480  DEF  PROC_NEWGAME 

4  90  VDU  19,  1, 2, 0, 0,  0 

500  VDU  19,3,6,0,0,0 

510  VDU  23, 0, 10, 32, 0; 0; 0; 

520  S1%=0 : S2%=0 
530  PROC_LAND SCAPE 
540  ENDPROC 

550  DEF  PROC_LAND SCAPE 

560  VDU  24, 0; 639; 1279; 1023;  18,0,131,1 

6 

570  VDU  24, 0; 0; 1279; 639;  18,0,130,  16, 

2  6,  5 

580  GCOL  0,1 

590  FOR  CACT%=0  TO  30 

600  X%=RND (40) *32 : Y%=RND (21) *32 

610  MOVE  X% , Y% : VDU  146 

620  NEXT  CAC  T  % 

630  VDU  4,  17,131,  17,0 

640  PRINT  TAB ( 0, 0 ) ; " YOU : " ; Sl% ; TAB ( 10 , 0 
)  ; "ME  : " ; S 2  % 

65  0  Y 1  %  =RND  (20) +10 : Y2  %  =  RND  (2  0) +10 
660  yl%=Yl% : y2%=Y2% 

67  0  PROC_DBL (2,Yl%,"[fsO]  [  f s 1 ]  " ,  "  [  f s 2 ] 
[  f  s  3  ]  "  ) 

68  0  PROC_DBL (17,Y2%,"[fsO]  [f si]  ",  "  [f s2 
]  [  f  s  3  ]  "  ) 

690  COLOUR  131 

700  PRINT  TAB ( 8, 10 ) ; "READY ! " 

710  *FX  15  1 

72  0  DU=INKEY  (200) 

730  PRINT  TAB (8, 10) ; " [spc6] " 

740  ENDPROC 

750  DEF  PROC_PLAY 

760  REPEAT 

77  0  IF  yl%OYl%  THEN  PROC_DBL  (  2  ,  y  1  %  , 
"  ")  :PROC_DBL (2, Yl%,  "  [fsO]  [fsl]  " 

[ f s2 ] [ f s3 ] " ) 

780  IF  y2  %<>Y2  %  THEN  PROC_DBL ( 1 7 , y 2  % 
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")  :PROC_DBL (17, Y2%,  "  [fsO]  [fsl]  " 
,  "  [  f  s  2  ]  [  f  s  3  ]  ") 

790  yl%=Yl% : y2%=Y2% 

800  Y1%=Y1%- (RND (3) =1  AND  Y1%<30)+(R 

ND  ( 3 ) =1  AND  Y 1  %  > 1 0 ) 

810  Y2%=Y2%- (INKEY (-98)  AND  Y2%<30)+ 

( INKEY (—66)  AND  Y2%>10) 

82  0  IF  INKEY  (-74)  AND  ( RND  ( 0 )  < . 3 +  (  D % 
/10))  THEN  PROC_UF IRE 

830  IF  RND  (10)  >D  %  THEN  PROC_FIRE 
840  IF  RND ( 5 ) = 1  THEN  COLOUR  l:COLOUR 
13  0: PRINT  TAB (RND  (20) -1,  11+RND  (19)  )  ;  "  [f 
s  2  ]  "  ; 

850  UNTIL  Sl%=100  OR  S2%=100 

860  ENDPROC 

870  DEF  FN_ANOTHER 

880  PRINT  TAB ( 8 , 10) ; 

890  IF  Sl%=100  THEN  PRINT"I  WON!"  ELSE 
PRINT "YOU  WON ! " 

900  COLOUR  130 

910  PRINT 1  1  '  "Do  you  wanter  another" 

920  PRINT "go  " ; : IF  S2%=100  THEN  PRINT" 
sharpshooter  ?";  ELSE  PRINT"?"; 

930  REPEAT  K$=GET$ 

940  UNTIL  K  $  =  "  Y  "  OR  K$  =  "N" 

950  IF  K  $  = " Y "  THEN  =TRUE  ELSE  =FALSE 
960  DEF  PROC_DBL (X%, Y%, T$, B$) 

970  COLOUR  0 

980  IF  Y%  < 1 2  THEN  COLOUR  131  ELSE  COLO 
UR  130 

990  PRINT  TAB (X%,Y%) ;T$ 

1000  IF  Y%  < 1 1  THEN  COLOUR  131  ELSE  COLO 
UR  130 

1010  PRINT  TAB (X%, Y%+1) ;B$; 

1020  ENDPROC 
1030  DEF  PROC_F IRE 

1040  PROC_DBL (2,yl%, " [fs8] [fs9]","[fs0] 
[fsl]") 

1050  SOUND  &10,-10,4,2 
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1060  FOR  B%=4  TO  16 

107  0  IF  B%  <  >  4  THEN  P ROC_DBL  ( B % - 1 , y 1  % ,  " 

[ f  S  3 ]  ",  " " )  ELSE  PROC_DBL (B%, yl%,  "  [f s3]  ", 

n  n  j 

1080  NEXT 

10  90  PROC_DBL (16, yl%,  " 

1100  IF  y 1 %  =  y 2  %  OR  yl%  =  y2%  +  l  THEN  PROC_ 
UDIE 

1110  ENDPROC 

1120  DEF  PROC_UFIRE 

113  0  PROC_DBL ( 1 7 , y  2  % ,  "  [fs4]  [f s5]  "  [f s6 

]  [  f  s  7  ]  "  ) 

1140  SOUND  &  1 0 , -1 0 ,  5 , 2 
1150  FOR  B%=1 5  TO  2  STEP  -1 
1160  IF  B%  <  > 1 5  THEN  PROC_DBL ( B %  + 1 , y 2  % ,  " 
[ f  s  3 ]  ELSE  P  ROC_DBL (B%,y2%,  "  [  f  s  3 ]  " 

,  "  "  ) 

1170  NEXT 

118  0  PROC_DBL ( 3 , y 2 % ,  " 

1190  IF  y 2  %  =  y 1 %  OR  y2%  =  yl%  +  l  THEN  PROC_ 
ID  IE 

1200  ENDPROC 
1210  DEF  PROC_UDIE 

122  0  PROC_DBL (17, y2%,  "  " ,  "  [  f s 4 ]  [  f s 5 ]  "  ) 

1230  SOUND  1,1,20,1 

1240  S1%=S1%+10 

1250  COLOUR  0 : COLOUR  131 

1260  PRINT  TAB ( 4 ,  0 )  ; S 1  % 

1270  REPEAT  UNTIL  INKEY(-147) 

1280  *FX  15  1 
12  90  D  =  INKEY  (200) 

1300  IF  Sl%<>100  THEN  PROC_LANDSCAPE 

1310  ENDPROC 

1320  DEF  PROC_IDIE 

1330  PROC_DBL (2 , yl%,  "  " ,  "  [ f s 4 ]  [  f s 5 ]  " ) 

1340  SOUND  1,1,20,1 

1350  S2%=S2%+10 

1360  COLOUR  0 : COLOUR  131 

1370  PRINT  TAB ( 14 , 0 ) ; S2% 
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1380  REPEAT  UNTIL  INKEY(-147) 

13  90  *  F  X  15  1 

14  00  D  =  INKEY  (200) 

1410  IF  S2%<>100  THEN  PROC_LANDSCAPE 
1420  ENDPROC 
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Racer 


In  this  game,  on  a  racing  track  designed  by  Scott  Vincent,  you 
must  drive  your  car  around  the  circuit  as  quickly  as  you  can 
without  crashing.  The  faster  you  go,  the  more  your  score 
increases. 

The  game  ends  when  your  car  skids  off  the  track  and 
mounts  the  grass.  Obviously,  at  higher  speeds  the  car  tends  to 
skid  more  when  turning.  If  you  go  too  fast,  you'  llose  control. 
The  car  starts  off  at  around  ten  miles  an  hour. 


10 

REM 

Racer 

20 

30 

MODE 

4 

40 

PROC 

_  I N  I  T 

50 

REPEAT 

60 

PROC_NEWGAME 

70 

P  RO  C_RAC  E 

80 

UNTIL  NOT  FN_ANOT  HER 

90 

MODE 

7 

100 

110 

END 

120 

DEF 

PROC_INI T 

130 

VDU 

19,7,2,0,0,0 

14  0 

VDU 

23, 0, 10, 32, 0; 0; 0; 

150 

VDU 

23,128,0,24,24,60,60,189,255,2 

53 

160 

VDU 

23,129,194,233,126,124,60,56,1 

60,64 

17  0 

VDU 

23,130,7,2,30,127,127,30,2,7 

180 

VDU 

23,131,64,160,56,60,124,126,24 

1,194 

190 

VDU 

23,132,153,255,189,60,60,24,24 

,  0 
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200  VDU  23,133,2,5,28,60,62,126,143,67 
210  VDU  23,134,224,64,120,254,254,120, 
64,224 

220  VDU  23,135,67,143,126,62,60,28,5,2 
230  VDU  23, 136, -1, -1, -1, -1, -1, -1, -1, -1 
2  4  0  H%  =  0 

250  DIM  X (2 )  , Y (2  ) 

260  ENDPROC 

270  DEF  PROC_TRACK 

280  FOR  Y%= 1  TO  30 

290  PRINT  TAB (0, Y%) ; STRING$ (40, " [fs8] " 

)  ? 

300  NEXT 

310  VDU  28,3,28,36,4 
320  RESTORE 
330  FOR  A%= 1  TO  41 
340  READ  Y%, X%, L% 

350  PRINT  TAB (X%, Y%) ; STRING$ (L%, "  "); 

360  NEXT 
370  VDU  26 

380  PRINT  TAB (0,  0)  ;  "Score  :";S%;"[spc6 
]  " ; TAB (2  0,  0)  ;  "High  : "  ;  H% 

390  ENDPROC 
400 

410  DATA  3,15,11,4,14,14,5,14,15,6,4,8 
,6,14,6,6,22,8,7,3,10,7,15,5,7,23,7,8,2, 
12,8,16,5,8,24,6 

420  DATA  9,1,13,9,17,5,9,24,7,10,1,6,1 
0,9,6,10,17,5,10,25,7,11,1,6,11,10,12,11 
,24,7 

430  DATA  12  ,1,7,12,11,10,12,24,7,13,1 

,8,13,11,10,13,23,8,14,1,9,14,14,6,14,22 
, 8, 15, 2, 9, 15, 21,9 

440  DATA  16,2,12,16,18,11,17,3,25,18,5 
,22,19,6,8,19,18,7,20,7,5,20,19,4 
450 

460  DEF  PROC_NEWGAME 

470  S%=0 

480  PROC_TRACK 
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490  X ( 1 ) =640 : Y (1 ) =512 
500  X (2  ) =0  : Y  (2 ) =0 . 1 
510  V%  =  10 : A  $  =  "  [f sO]  " 

520  PRINT  TAB ( 10 , 2 ) ; " Speed  =[spc5]m.p. 

h  .  " 

530  PRINT  TAB (18, 2) ;V%; 

540  ENDPROC 

550  DEF  PROC_RACE 

560  CRASH=FALSE 

570  SOUND  0,-10,7,255 

580  REPEAT 

590  VDU  5 

600  MOVE  X (1)  , Y  (1)  :GCOLO, 0 :VDU136 
610  X (1 ) =X (1 ) -X (2 ) 

620  Y ( 1 ) = Y  ( 1 ) + Y  (  2 ) 

630  IF  FN_HI T  THEN  CRASH=TRUE 

640  MOVE  X ( 1 ) , Y ( 1 ) : GCOL  0,1:PRINT  A$ 

650  VDU  4 

660  S%=S%+ (V%DIV10) 

670  PRINT  TAB ( 7 , 0 ) ; S% 

680  SOUND  &11,0,V%,1 

690  IF  INKEY  (-74)  V%  =  V% - 1 0  *  ( V% < 1 5 0 ) 

700  IF  INKEY  (-90)  V%  =  V%  + 1 0  *  ( V% > 1 0 ) 

710  PROC_MOVE 
720  PRINT  TAB ( 18 , 2 ) ; V% ; " 

730  UNTIL  CRASH 

740  ENDPROC 

750  DEF  PROC_MOVE 
760  PROC_DELAY ( V  % ) 

770  0= V% / 5 

780  X (2  ) =  SGN (X  (2 )  )  *0 
7  90  Y (2) =  SGN  (Y  (2)  )  *0 
800  IF  INKE  Y (-65)  PROC_LEFT 
810  IF  INKEY (-2)  PROC_RIGHT 
820  ENDPROC 

830  DEF  PROC_DELAY  ( T  % ) 

84  0  REMFORW%  =  l  TO  5 0 0 - ( 1 0  * T% )  : NEXT 

850  ENDPROC 

860  DEF  PROC_LEFT 
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870  A$=CHR$ (128+ ( ( ASC ( A$ ) +1 ) MOD 8) ) 

880  IF  A$<"  [ f  s  4 ]  "  THEN  X(2)=0  ELSE  X(2 

)  — 0 

8  90  IF  A  $  < "  [ f  s  2 ]  "  OR  A$>"  [ f  s  6 ]  "  THEN  Y 
( 2 ) =0  ELSE  Y ( 2 ) = -0 

900  IF  A$  =  "  [ f  s  4 ]  "  OR  A  $  =  "  [ f  s  0 ]  "  THEN  X 
(2)  =0 

910  IF  A$  =  "  [fs2]  "  OR  A  $  =  "  [ f  s  6 ]  "  THEN  Y 
(2)  =0 

920  ENDPROC 

930  DEF  PROC_RIGHT 

940  A$  =  CHR$  (128+ (  (ASC { A  $ ) -1) MOD 8)  ) 

950  IF  A$<"  [ f  s  4 ]  "  THEN  X(2)=0  ELSE  X(2 

)  — 0 

960  IF  A$<"  [ f  s  2 ]  "  OR  A$>"[fs6]"  THEN  Y 
( 2 ) =0  ELSE  Y ( 2 ) =-0 

970  IF  A$  =  "  [ f  s  4 ]  "  OR  A$  =  "[fsO]"  THEN  X 
(2)  =0 

980  IF  A$  =  "  [ f  s  2 ]  "  OR  A$  =  "[fs6]"  THEN  Y 
(2)  =0 

990  ENDPROC 
1000  DEF  FN_HIT 

1010  IF  POINT  (X ( 1 ), Y  ( 1 ))  <>0  THEN  =  TRUE 
1020  IF  POINT (X (1) +30, Y (1) -30) <>0  THEN 
=  TRUE 

1030  =FALSE 

1040  DEF  FN_ANOTHER 

1050  SOUND  &10, -10, 255, 255 

1060  IF  S%>H%  THEN  H%=S% 

1070  PRINT  TAB (26, 0 ) ; H% 

1080  PRINT  TAB ( 10 , 10 ) ; " You  hit  somethin 
g  !  " 

1090  REPEAT  UNTIL  INKEY(-147) 

1100  PRINT  TAB (10, 21) ; "Another  go  ?"; 

1110  SOUND  &10, 0,0,0 

1120  *FX  15  1 

1130  *  F  X  202  32 

1140  REPEAT  K  $  =  GE  T  $ 

1150  UNTIL  K  $  =  " Y "  OR  K$  =  "N" 
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1160  IF  K  $  = " Y "  THEN  =TRUE  ELSE  =FALSE 
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Ski  Run 


In  this  program  you  have  to  steer  your  skier  down  the  ski-slope, 
dodging  the  trees  as  you  go.  Your  speed  increases  as  you 
progress  down  the  slope.  If  you  move  off  the  side,  you'  Usee 
yourself  reappear  on  the  other  side  of  the  screen.  If  you  drop 
off  the  bottom  of  the  world,  you'  Ureappear  on  the  top  of  the 
screen.  The  '  Zkeys  moves  you  left,  and  the  '  /fnoves  you  right. 
The  skier  automatically  moves  down  unless  he  is  moving  across 
the  slope.  The  time  for  the  completed  run  will  be  shown  at  the 
end  of  the  game. 


10  REM  Ski  Run 
20 

30  MODE  1 
40  PROC_INI T 
50  REPEAT 

60  PROC_NEW_GAME 
70  PROC_PLAY 
80  UNTIL  NOT  FN_AN OTHER 
90  END 
100 

110  DEF  PROC_INI T 

120  DIM  M%  3 

130  L%=-98 :R%=-105 

140  VDU  23, 0, 10, 32, 0; 0; 0; 

150  VDU  23, 128, &18, &18, &10, &3C, &50, &08 
,  &  1 1 , &FE 

160  VDU  23, 129, &18, &18, &08, &3C, &0A, &10 
,  &  8  8  ,  &  7  F 

170  VDU  23, 130, &1C, &5D, &3E, &08, &2A, &36 

,  &22, &  2  2 

180  VDU  23,131,60,118,227,201,221,201, 

201,201 
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190  VDU  2  3, 132, &  0  8  , &1C, &  1C , &  3E , &  7  F , &41 
,  0,  0 

200  VDU  23,133,0,0,0,0,0,8,8,8 
210  VDU  23, 134, &80, &80, &  8  0 , &  8  0 , &  8  0 , &80 
,  &  8  0  ,  &  8  0 

220  VDU  23,135,1,1,1,1,1,1,1,1 
230  VDU  19,2,2,0,0,0 

240  ENVELOPE  1 , 1 , - 1 , - 2 , - 4 , 1 , 1 , 1 , 1 2 6 , 0 , 
0,-10, 126, 50 

250  Tree$=CHR$  (5) +CHR$  (18)  +CHR$  (0) +  C  HR 
$  (2)  +"  [  f  s  4 ]  " +CHR$  (8)  +CHR$  (18) +CHR$  (18)  +C 
HR$ (0) +" [fs5] "+CHR$ (4) 

260  COLOUR  0 : COLOUR  131:CLS 

270  ENDPROC 

280 

290  DEF  PROC_NEW_GAME 
300  PROC_LAND SCAPE 
310  X  %  =  2 : Y  %  =  2 

320  PRINT  TAB (X%, Y% )  ;  "  [  f s2 ]  "  ; 

330  Crash%=FALSE : Finish%=FALSE 

340  ENDPROC 

350 

360  DEF  PROC_LAND SCAPE 
370  LOCAL  X% , Y% 

380  CL  S : COLOUR  3:COLOUR  129 
390  GCOL  0,1 

400  MOVE  0 , 928: DRAW  0,1023 
410  PRINT  TAB (0, 0) ; "START" 

420  MOVE  159, 928 : DRAW  159,1023 
430  MOVE  1088,0: DRAW  1088, 96: DRAW  1279 
, 96 : DRAW  1279, 0 

44  0  PRINT  TAB (34, 29)  ;  "FINISH" ; 

450  FOR  TREE=1  TO  150 
460  REPEAT 

470  X%  =  3  2  *  ( RND (40) -1)  :Y%  =  31+(32*  ( RND 

(32)  -1)  ) 

480  UNTIL  ( X%> 1 6  0  OR  Y%<863)  AND  (X% 
<105  6  OR  Y%  > 1 2  8 ) 

490  MOVE  X% , Y% 
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500  PRINT  Tree  $ ; 

510  NEXT 

520  COLOUR  1 : COLOUR  131 
530  PRINT  TAB (2,2) ; 

540  ENDPROC 
550 

560  DEF  PROC_PLAY 
570  *FX  15  1 
580  wait %=GET 
590  TIME=0 

600  VDU  31, X%, Y%, 32 , 8 
610  Man$=  "  [fs2]  " 

620  REPEAT 

630  IF  FN_CLE AR  THEN  PRINT  Man$;  ELS 
E  PROC_CRASH : GOTO  750 
640  PROC_DELAY 
65  0  M a n $  =  "  [f s2 ]  " 

660  D  %  =  1 

670  IF  INKEY  ( L% )  THEN  X%=X%-1 : D%  =  0  :  M 
a  n  $  = "  [ f si ]  " 

680  IF  INKEY  ( R% )  AND  NOT  INKEY ( L  % )  T 
HEN  X%=X%+1 :D%=0 :Man$=" [f sO] " 

690  Y%=Y%+D% 

700  IF  Y%=32  THEN  Y%=0:IF  X%<5  THEN 
Y%  =  2 

710  IF  X %  =  - 1  THEN  X%  =  3  9 

720  IF  X%  =  4  0  THEN  X%  =  0 

730  IF  X%  >  3  3  AND  Y%>28  THEN  PROC_FIN 

ISH 

740  VDU  8, 32, 31, X%, Y% 

750  UNTIL  Crash%  OR  Finish% 

760  Time%=TIME 
770  ENDPROC 
780 

790  DEF  FN_CLE AR 

800  A%=135 : ! M%=USR&FFF4 

810  IF  M%  ? 1  =  0  THEN  =FALSE  ELSE  =  TRUE 
820 

830  DEF  PROC_DELAY 
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84  0  T%  =  TIME+  (32— Y%) 

850  REPEAT  UNTIL  TIME>T% 

860  SOUND  &11, -10, Y%DIV4, 3 

870  ENDPROC 

880 

890  DEF  PROC_CRASH 

900  IF  X%  >  3  3  AND  Y%>28  THEN  PROC_FINIS 
H : ENDPROC 

910  COLOUR  0 

92  0  PRINT  TAB (X%, Y%)  ;  "  [f s3]  "  ; 

930  Crash%=TRUE 
940  SOUND  &11, 1,20,1 
950  ENDPROC 
960 

970  DEF  PROC_F INI SH 
980  Finish%=TRUE 
990  SOUND  &11,1,175,2 
1000  PRINT  "  [ f s2  ]  "  ; 

1010  ENDPROC 
1020 

1030  DEF  FN_ANOTHER 
1040  *FX  15  1 
1050  COLOUR  3 

1060  IF  Y% > 5  AND  Y%<15  THEN  VDU  28,11,2 
4,29,16  ELSE  VDU  28,11,14,29,6 
1070  COLOUR  129 : CLS 

1080  IF  Finish%  THEN  PRINT"You  have  fin 
ished" ' "in  " ; Time% / 1 0 0 ; "  seconds."  ELSE 
PRINT"  You  have  Crashed!" 

1090  COLOUR  2 

1100  PRINT' ' "  Another  go  ? 

1110  REPEAT  K$=GET$ 

1120  IF  K  $  > " Z "  THEN  K$  =  CHR$  ( AS C ( K$ )  - 3 
2) 

1130  UNTIL  K  $  =  " Y "  OR  K$  =  "N" 

1140  VDU  26 

1150  COLOUR  0 : COLOUR  131:CLS 
1160  = ( K  $  = " Y  "  ) 
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Artificial  Intelligence 


Eliza 


Artificial  intelligence  is  a  goal  which  has  not  yet  been  achieved. 
Certainly,  programs  which  enable  computers  to  exhibit 
behaviour  which  could  conceivably  be  classed  as  intelligent 
have  been  written,  but  the  'intelligence'  has  been  limited  and 
effective  only  within  a  severely  restricted  domain.  That  is,  the 
computer  appears  to  be  brainy,  but  only  if  you  limit  the 
environment  within  which  it  has  to  demonstrate  those  brains. 

This  is  the  kind  of  'intelligence'  demonstrated  by  our  next 
program,  a  variation  of  one  of  the  best-known  and  popular 
artificial  intelligence  programs  ever  written.  In  Eliza,  the 
computer  takes  on  the  role  of  a  psychiatrist  and  apparently 
carries  on  a  conversation.  Eliza  was  originally  developed  in  the 
mid-1960s  by  Joseph  Weizenbaum.  He  was  attempting  to 
produce  a  program  which  would  caricature  a  Rogerian  psy¬ 
choanalyst.  It  has  been  suggested  that  Weizenbaum  regrets  his 
work  on  the  program.  It  is  not  hard  to  see  why. 

In  the  euphoric  days  after  the  program  was  first  made 
public,  wild  claims  were  made  that  it  was  only  a  matter  of  time 
before  computers  could  take  over  the  role  of  'mind-doctors'. 
Further,  the  Eliza  success,  said  some  incautious  observers, 
paved  the  way  for  genuinely  intelligent  computers. 

Weizenbaum  did  not  believe  it  for  a  moment.  He  writes 
that  he  was  amazed  at  the  beginning  -  and  continues  to  be 
amazed  -  at  the  reaction  to  the  program.  Written  in  the 
computer  language  LISP  at  the  Massachusetts  Institute  of 
Technology,  the  program  could  be  accessed  from  any  one  of  a 
number  of  time-sharing  terminals  dotted  around  the  campus. 
Weizenbaum  reports  that  he  was  very  interested  to  see  the 
program  being  accessed  time  and  time  again  late  at  night,  as 
though  troubled  students  really  were  discussing  their  problems 
with  the  program.  Furthermore,  the  accesses  were  all  very  long. 
The  computer  log  showed  some  people  were  hooked  into  Eliza 
for  over  an  hour  at  a  time. 
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Weizenbaum'  secretary  had  worked  closely  with  him  over 
the  six  months  or  so  it  took  to  produce  the  program,  and  she 
knew  as  well  as  he  how  it  worked,  scanned  a  person'  speech 
for  '  keywords'  (such  as  dream  and  friends)  and  then  choosing  a 
suitable  reply  from  a  bank  of  responses.  Other  words  from  a 
user'  s  sentence  could  be  incorporated,  sentences  could  be 
'  turnedaround'  (so  '  hm  happy  because  of  the  weather'  could 
be  simply  fed  back  to  the  user  as  either  '  Whjare  you  happy 
because  of  the  weather'  or  just  a  statement  of  the  form  '  Yoiare 
happy  because  of  the  weather'  .What  does  this  suggest  to 
you?'  )^nd  a  number  of  other  replies  (such  as  '  Thais  interest¬ 
ing,  please  go  on'  )  could  be  used  if  no  key  word  was 
recognized. 

Despite  the  secretary'  familiarity  with  the  program  Weizen¬ 
baum  noticed  that  if  he  walked  into  the  office  when  she  was 
accessing  the  program,  she  became  embarrassed  and  refused  to 
let  him  see  the  printout.  Futher,  his  suggestion  that  it  would  be 
interesting  to  hook  up  a  printer  to  the  main  body  of  the 
computer  to  record  the  students'  late-night  conversations  with 
the  program,  was  greeted  with  horror,  as  though  he  were 
suggesting  a  kind  of  electronic  peeping-Tom  activity.  (If  you'  d 
like  to  look  further  into  Weizenbaum'  swork  on  artificial 
intelligence,  you  might  be  interested  in  his  book  Computer 
Power  and  Human  Reason,  W.  H.  Freeman  and  Co.,  San 
Fancisco,  1976.) 
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Here'  s  our  BBC  Micro  Eliza  in  action,  talking  to  Ian: 

Hello  and  welcome.  I  am  your  friendly 
BBC  Compute  r . 

Before  we  start,  just  to  get  on  good 
terms, it  may  be  wise  for  you  to  tell 
me  your  n  ame . 

?  IAN 

Well  what  a  fabulous  name  Ian  is. 

Its  a  pleasure  to  have  you  talking  to 
me  IAN . 

?I  HAVE  A  PROBLEM 
IAN, you  have  a  problem 

?  YE  S  I  HAVE  A  PROBLEM 

You  seem  quite  certain.  Why  is  this  so? 

7BECAUSE  I  HAVE  COME  TO  YOU  FOR  SOME  HEL 

P 

What  makes  you  think  I  know  any  better? 

?I  THOUGHT  THAT  BEING  A  COMPUTER  YOU  WOU 

LD  BE  ABLE  TO 

Why  do  you  mention  computers? 

?  B E  C AU  S E  YOU  ARE  ONE 

IAN, What  makes  you  think  I  am  one 

?  WE  L L  YOU  ARE 

What  makes  you  think  I  am 
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This  is  a  little  later  in  the  same  '  conversation'  : 

?  LE  T  S  NOT  GO  THROUGH  THIS  AGAIN 
IAN, Why  are  you  being  negative 

?  SORRY 

IAN, Why  are  you  apologizing? 

?  ARE  YOU  VERY  CLEVER 

IAN, Why  are  you  interested  in  whether 
or  not  I  am  very  clever 

?I  JUST  THOUGHT  THAT  IT  MAY  HELP 

What  makes  you  think  I  know  any  better? 

?I  DONT  KNOW 
you  dont  know 

?  YE P  I  DONT 
you  dont 

?  WH  Y  BOTHER  I  ASK  MYSELF 

What  is  it  that  you  really  want  to 

know  ? 

?  D 0  COMPUTERS  CREAM? 

IAN, Why  did  you  bring  up  the  subject 
o  f  dreams  ? 

?  BE  C AU  S  E  THATS  MY  PROBLEM 

Have  you  seen  a  Doctor  about  this? 

?  NO  BECAUSE  I  WANTED  TO  TALK  TO  YOU  ABOU 
T  IT  FIRST 

People  who  want  don  1 t  get. 
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And  here'  sthe  listing,  so  BBC  Eliza  can  help  you  solve  your 
problems: 


10  REM  ELIZA 

20 

30  MODE  7 

40  ON  ERROR  GOTO  1280 
50  PROC_INI T 
60  PROC_INTRO 
70  REPEAT 
80  PROC_ INPUT 

90  ANSWER$=FN_REPLY 
100  PROC_JUSTIFY ( ANSWER$ ) 

110  PRINT 
120  UNTIL  BYE 
130  PROC_QUI T 
140  END 

150  DEF  PROC_INTRO 
160  PRINT ' ' 

170  PROC_JUSTIFY ( "Hello  and  welcome. I 
am  your  friendly  BBC [fsO] Computer . " ) 

180  PRINT 

190  PROC_JUSTIFY ( "Before  we  start, just 
to  get  on  good  terms, it  may  be  wise  for 
you  to  tell  me  your  name.") 

200  INPUT  name  $ 

210  IF  LEF  T  $  ( FN_UC ASE  (name?)  ,  3) = " I AN " 
THEN  PROC_JUSTIFY ( "Well  what  a  fabulous 
n  ame  Ian  is.") 

220  PROC_JUSTIFY ("Its  a  pleasure  to  ha 
ve  you  talking  to  me  "+name $+".") 

230  PRINT 

240  ON  ERROR  IF  ERR=17  THEN  130  ELSE  1 
280 

250  B YE  =F  AL  SE 
260  ENDPROC 


101 


270  DEF  PROC_INPUT 
2  80  LOCAL  QUE  S  T I ON  $ 

2  90  INPUT  QUE  S  T I ON  $ 

300  reply $=FN_CONVERT (QUESTION$) 

310  REPLY$=FN_UCASE (reply$ ) 

320  TEMP$=REPLY$ 

330  ENDPROC 

340  DEF  FN_UCASE(S$) 

350  LOCAL  L%, C$, R$ 

3  60  R  $  =  " " 

370  FOR  L%=1  TO  LEN(S$) 

3  8  0  C  $  =MI D  $  ( S$ , L%,  1 ) 

3  90  IF  C  $  >  = " a "  AND  C$<="z"  THEN  C$  =  CHR 
$ (ASC (C$ ) -32 ) 

400  R$=R$+C$ 

410  NEXT 
420  =R$ 

430  DEF  FN_CONVERT ( S$ ) 

440  IF  S$=""  THEN  ="  " 

450  LOCAL  L%,P%, C$, T$ 

4  6  0  T  $  =  "  " 

470  P%=0 

480  REPEAT  P%=P%+1 

4  90  UNTIL  MID$  (S$,P%,  1) <>"  " 

500  FOR  L%  =  P  %  TO  LEN(S$) 

510  C$=MID$ (S$,L%, 1) 

520  IF  C  $  >  = " A "  AND  C$<="Z"  THEN  C$  =  CHR 
$  (ASC  (C$ )  +32 ) 

530  T$=T$+C$ 

540  NEXT 

550  IF  LEFT$  (T$,  8) ="  beause"  THEN  T$=M 
I D  $  (T$,  9) 

5  60  =  T  $  +  "  " 

57  0  DEF  FN_REP  LY 

580  LOCAL  R$, Z%, D%, FLAG 

590  IF  RND (10) <3  THEN  R$=name$+","  ELS 
E  R  $  =  "  " 

600  IF  REPLY  $= "  "  THEN  =R$  +  "This  is  qu 

ite  boring." 
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610  IF  LEFT$ (REPLY$, 4) = "  BYE"  THEN  BYE 
=  TRUE : " 

620  Z%=0 : FLAG=FALSE 

630  REPEAT  Z%=Z%+1 

64  0  D%  =  INSTR(REPLY$,B$  (Z%)  ) 

650  IF  D  %  <  >  0  THEN  FLAG  =  TRUE 
660  UNTIL  Z%=S%  OR  FLAG 
67  0  IF  D  %  =  0  THEN  =R$+FN_NOREP  (RND  (13)  ) 
680  R$=R$+C$ (Z%) +"  " 

690  IF  RIGHT$ (C$ (Z%) , 1) <"A"  THEN  =R$ 
700  H%  =  LEN ( REPLY  $ )  -  (D%  +  LEN (B$  (Z%)  )  ) 

710  IF  H%  >  0  THEN  REP L Y $ =RI GHT $  ( REP L Y $ , 
H% ) : reply$=RIGHT$ (reply$, H%) 

720  Z%=0 : FLAG=FALSE 
730  REPEAT  Z%=Z%+1 

7  40  D%  =  INSTR(REPLY$,F$  (Z%)  ) 

750  IF  D  %  <  >  0  THEN  FLAG  =  TRUE 
760  UNTIL  Z%=10  OR  FLAG 
770  IF  D  %  =  0  THEN  =R$  +  reply$ 

780  J$  =  LEFT$  (reply$,  { D  %  —  1 )  ) +"  "+G$(Z%) 

790  R$=R$+J$ 

800  IF  Z  %  >  2  THEN  L$=RIGHT$  (reply$,  (Z%- 
2 ) ) : IF  INSTR ( TEMP$ , L$ ) =0  THEN  =R$+L$ 

810  IF  Z % > 2  THEN  =R$ +RI GHT $  ( r ep ly $ ,  (  Z % 
-2)  ) 

820  =R$ 

830  DEF  FN_NOREP(N%) 

840  ON  N %  GOTO  8  5  0,  860,  870,  880,  890,  900 
,910,920,930,940,950,960  ELSE  970 

850  ="What  does  that  suggest  to  you?" 

8  60  ="I  see  " 

870  “"I'm  not  sure  that  I  understand  y 
ou  fully." 

880  ="Can  you  elaborate  on  that?" 

890  ="That  is  quite  interesting!" 

900  =" That's  so... please  continue..." 
910  ="I  understand. . . " 

920  =" Well, well.. do  go  on." 

930  ="Why  are  you  saying  that?" 
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940  ="Please  explain  the  background  to 
that  remark..." 

950  ="Could  you  say  that  again, in  a  di 
fferent  way?" 

960  ="Have  you  seen  a  Doctor  about  thi 
s?" 

970  ="I  think  you're  mad." 

980  DEF  PROC_JUSTIFY (0$) 

990  LOCAL  C%, L%, T%, P%, C$, T$ 

1000  IF  0$=""  THEN  P RI NT : ENDP ROC 
1010  FOR  P%  =  1  TO  LEN ( 0 $ ) 

1020  T  $  =  " " 

1030  REPEAT  C $ =MI D $ ( 0 $ , P % , 1 ) 

1040  T$=T$+C$ 

1050  P%=P%+1 

1060  UNTIL  (P%-1)  >  =  LEN (0$)  OR  LEN ( T  $ ) 
>39 

1070  P%=P%-1 

1080  IF  P  %  >  =  LEN  (  0  $ )  THEN  1150 
1090  REPEAT 
1100  P%=P%-1 

1110  T$  =  LEFT$  (T$, LEN  (  T  $ )  -1) 

1120  UNTIL  RIGHT$ (T$, 1) ="  "  OR  RIGHT$ 

( T  $ ,  1 )  = " ,  "  OR  RIGHT$  (T$,  1)  ="  .  "  OR  LEN ( T  $ 
)  =1 

1130  IF  RIGHT$  (T$,  1)  ="  "  THEN  T$=LEFT$  ( 

T  $ , LEN ( T  $ )  -1) 

1140  IF  LEN ( T$ ) =1  THEN  T $ =MID $  (  0 $ , P % ,  3 8 
P%=P%+37 

1150  FOR  L%  =  1  TO  LEN ( T  $ ) 

1160  C$=MID$ (T$,L%, 1) 

1170  IF  C$="#"  THEN  VDU  7  ELSE  PRINT  C$ 

1180  FOR  T%= 1  TO  1 : NEXT 

1190  NEXT 

1200  PRINT 

1210  NEXT 

1220  ENDPROC 

1230  DEF  PROC_QUI T 
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1240  PROC_JUSTIFY ( " You ' re  going  then  "+ 
name$+".Bye  bye.") 

1250  PRINT ' ' 

12  60  *  F  X  202  32 

1270  ENDPROC 
1280  PRINT 

1290  IF  ERR<>17  THEN  REPORT : PRINT"  at  1 
ine  " ; ERL  ELSE  PROC_JUSTIFY ( "Bye  bye.") 
1300  PRINT ' ' 

1310  END 

1320  DEF  PROC_INI T 
1330  S%=58 

1340  DIM  B$ (S%) , C$ (S%) , F$ (10) , G$ (10) 
1350  RESTORE  1490 
1360  FOR  A%= 1  TO  S% 

137  0  READ  B  $  ( A% )  , C  $  ( A% ) 

1380  B  $  ( A  % ) = "  " +  B  $  ( A  % ) 

1390  NEXT 
1400  RESTORE  2000 
1410  FOR  A%= 1  TO  10 
1420  READ  F  $  ( A% )  , G$  ( A% ) 

1430  F  $  ( A  % ) = "  " +  F  $  ( A  % ) 

1440  NEXT 
1450  ENDPROC 
1460 

1470  REM  KEYWORDS  AND  REPLIES 
1480 

1490  DATA  "COLOURS", "I  have  lots  of  col 
our s - [ f s 1 ] Red,  [fs2]Green,  [fs3]yellow,  [fs 
4] Blue, [ f s 5 ] Magent a , [ f s 6 ] Cy an [ f s 7 ] and  Wh 
i  t  e  .  " 

1500  DATA  "COLOUR" , "Like  colours  in  a  r 
a inbow? " 

1510  DATA  "HELP", "What  makes  you  think 
I  know  any  better?" 

152  0  DATA  "CAN  YOD",  "Perhaps  you  would 
like  to  be  able  to" 

1530  DATA  "OLD", "Age  is  a  thing  that  ne 
ver  bothers  me  so  I  don't  know  why  it  sh 
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ould  you." 

1540  DATA  "HELLO",  "Haven't  we  been  thro 
ugh  this  before?" 

1550  DATA  "DO  YOU", "Yes, I" 

1560  DATA  "CAN  I", "Perhaps  you  don’t  wa 
nt  to  be  able  to" 


157  0  DATA  "YOU  ARE",  "What  makes  you  thi 
n  k  I  am" 

1580  DATA  "YOU'RE", "What  is  your  reacti 
on  to  me  being" 

1590  DATA  "I  DON'T", "Why  don't  you" 

1600  DATA  "I  FEEL", "Tell  me  more  about 


feeling" 

1610  DATA  "HOW  ARE", "OK  thanks." 

1  62  0  DATA  "HOW",  "Are  you  being  personal 
?  " 


1630  DATA  " SOUND "  , "I  can  make  sounds  li 
ke  this#" 


1  64  0  DATA  "THANK"  ,  "Its  a  pleasure." 

1650  DATA  "FLASH"  ,  "  [ f s  8  ]  Like  tis  [fs9]  ?" 
1  660  DATA  "WHY  DON'T  YOU",  "Why  would  yo 
u  want  me  to" 


1  67  0  DATA  "WHY  CAN'T  I",  "What  makes  you 
think  you  should  be  able  to" 

1680  DATA  "ARE  YOU", "Why  are  you  intere 
sted  in  whether  or  not  I  am" 

1690  DATA  "I  CAN ’T", "How  do  you  know  yo 
u  can't" 


1700  DATA  "SEX", "I  fel  that  you  should 
really  discuss  this  with  a  human" 

1710  DATA  "I  AM", "How  long  have  you  bee 
n" 


1720  DATA 
you're" 
1730  DATA 
'  t  get  .  " 
1740  DATA 
1750  DATA 
1760  DATA 


"I'M", "Why  are  you  telling  me 

"I  WANT" , "People  who  want  don 

"I  WOULD",  "Why  would  you" 
"WHAT",  "What  do  you  think?" 
"WHO",  "How  often  do  you  think 
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of  such  questions?" 

1770  DATA  "WHERE " , "Why  did  you  ask  me  t 
hat?" 

1780  DATA  "WHEN", "What  would  your  best 
friend  say  to  that  question?" 

1790  DATA  "WHY", "What  is  it  that  you  re 
ally  want  to  know?" 

18  0  0  DATA  "PERHAPS"  ,  "You  1  re  not  very  fi 
rm  on  that!" 

1810  DATA  "ALMOST", "Accuracy  is  somethi 
ng  that  bothers  me  alot .Please  be  more  p 
r  e  c  i  s  e  .  " 

1820  DATA  "DRINK" , "Moderation  in  all  th 
ings  should  be  the  rule." 

1830  DATA  "SORRY", "Why  are  you  apologiz 
ing?" 

1840  DATA  "DREAM", "Why  did  you  bring  up 
the  subject  of  dreams?" 

1850  DATA  "I  LIKE", "It  is  good  that  you 
like" 

1860  DATA  "MAYBE ",  "Aren  1 t  you  being  a  b 
it  tentative?" 

1870  DATA  "NO", "Why  are  you  being  negat 
ive?" 

1880  DATA  " LOVE ",  "Don't  talk  about  such 
soppy  matters." 

1890  DATA  "YOUR", "Why  are  you  concerned 
about  my" 

1900  DATA  "ALWAYS", "Can  you  think  of  a 
specific  example?" 

1910  DATA  "THINK", "Don't  strain  too  muc 
h  .  " 

1920  DATA  " SPELLING" , "Are  you  questioni 
ng  my  spelling?" 

1930  DATA  "YES", "You  seem  quite  certain 
.  Why  is  this  so?" 

1  94  0  DATA  "FRIENDS  ",  "Why  do  you  bring  u 
p  the  subject  of  friends?" 

1950  DATA  "COMPUTER" , "Why  do  you  mentio 
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n  computers?" 


1960 

1970 

DATA 

"AM  I"," 

You 

1980 

1990 

REM 

CONJUGATES 

2000 

DATA 

I,  you 

2010 

DATA 

ARE , am 

2020 

DATA 

WERE , was 

2030 

DATA 

YOU, me 

204  0 

DATA 

YOUR, my 

2050 

DATA 

I 1 VE, you 

1  ve 

2060 

DATA 

I 1 M , you  1 

re 

207  0 

DATA 

ME  ,  y  ou 

2080 

DATA 

AM  I , y ou 

are 

2090 

DATA 

AM, are 
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Animal 


In  this  game  the  computer  learns  how  to  distinguish  between 
different  animals,  gradually  building  up  a  formidable  bank  of 
knowledge. 

When  you  run  it,  the  computer  will  first  ask  if  you'  re 
thinking  of  an  animal.  It  will  then  ask  if  the  animal  you'  re 
thinking  of  is  a  mammal.  Based  on  your  answers,  the  computer 
gradually  learns  what  to  ask  in  order  to  distinguish  between 
various  animals,  building  up  a  solid  database  as  it  does  so.  You 
can  easily  modify  the  program  to  identify  such  things  as  makes 
of  cars  or  brands  of  computers.  Just  modify  the  final  line 
(2190)  of  the  program  to  suit  the  topic  you  want  the  computer 
to  discuss. 

This  program  can  be  used  to  develop  a  very  effective 
'  artificialintelligence'  which  could,  for  example,  be  used  for 
somewhat  primitive  medical  diagnosis.  You  can  save  a  database 
so  your  BBC  Micro  can  become  more  and  more  intelligent 
until  it  is  almost  as  bright  as  you  are.  Full  instructions  are 
within  the  program. 


10 

REM  ANIMAL 

20 

30 

MODE  7 

4  0 

P  RO  C_ I NIT 

50 

REPEAT 

60 

PROC_NEWGAME 

7  0 

IF  quit  THEN 

80 

REPEAT 

90 

P  RO  C_A  S  K 

100 

UNTIL  LEFT 

2)<>" 

/Q" 

110 

P  ROC_GUE  S  S 

120 

$  ( RECORD  $  ( CURRENT  % )  , 
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120  UNTIL  quit 

130  PROC_OP  T I ONS 

140  IF  NOT  QUIT  THEN  50 

150  PRINT '"[ fs2 ] BYE " 

160  END 
17  0 

180  DEF  PROC_INI T 
190  D%  =  2  0  0 

2  00  DIM  RECORD  $  ( D% ) 

210  READ  TI TLE  $ 

220  PROC_TITLE (TITLE$) 

230  FOR  A%  =  0  TO  3 
240  READ  RECORD$(A%) 

250  NEXT 
260  E  %  = A% 

270  PRINT ' ' 

280  ON  ERROR  GOTO  130 
290  ENDPROC 
300  DEF  PROC_NEWGAME 
310  PRINT ' ' ' ' ' 

320  ASK$=" [fsl] Are  you  thinking  of  a" 
330  IF  INSTR ( " AEIOU" , LEFT$ (TITLE$ , 1 ) ) < 
>0  THEN  ASK$=ASK$+"n" 

340  ASK$=ASK$+"  "+TITLE$+"  ?"+CHR$(140 

) 

350  PROC_DH ( ASK$ ) 

360  PRINT"  '  ' TAB (1+LEN(ASK$)  , VP OS-7)  ; 
370  quit=NOT  FN_YN 
380  PRINT ' ' 

3  90  N  %  = VAL ( RECORD $  ( 0 )  )  : CURRENT%  =  1 
400  ENDPROC 

410  DEF  PROC_ASK 

42  0  Q  $  =RE  CORD  $  ( CURRENT% )  :T$="  [fs3]  " 

430  FOR  Z  %  =  3  TO  LEN ( Q  $ ) 

440  IF  MID$ (Q$, Z%, 1) <>"/"  THEN  T$=T$+M 
ID$ (Q$, Z%, 1)  ELSE  Z%=LEN(Q$) 

450  NEXT 

460  PROC_CL(T$+"  ?") 

470  IF  FN_YN  THEN  T$="/Y"  ELSE  T$="/N" 
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480  X%=INSTR (Q$, T$ ) 

490  Y%=INSTR(MID$ (Q$,X%-1) , "/") 

5  0  0  CURRENT  %=VAL  (MID$  (Q$,X%  +  2,Y%-X%-2) 

) 

510  ENDPROC 

52  0  DEF  P  ROC_GUE  S  S 

530  AN$=RIGHT$ (RECORD$ ( CURRENT% ) , LEN (R 
E  CORD  $  ( CURRENT% )  )  -2) 

54  0  PROC_CL ( "  [  f  s  3 ]  [ fsO] Is  it  a[fs2]"+A 
N$  +  "  [fs3]  ?  ") 

550  IF  FN_YN  THEN  P ROC_CL ( "  [ f s 8 ]  [  f s 6 ]  [ 
f sO] How  clever  I  am!  [fsO]  ")  :ENDPROC 

560  PROC_CL ( " [ f s 6 ] [fs0]What  were  you  t 
hinking  of  then  ?[fs2][fsO]A  ") 

570  REPEAT 
580  INPUT " " A$ 

590  A$=FN_UCASE (A$) 

600  IF  LEN ( A$ ) =0  THEN  PROC_CL ( " [ f s 8 ] 

[ f  S 1 ] P  LEASE  TELL  ME[fs0]") 

610  UNTIL  LEN ( A$ )  >  0 

620  PROC_CL ( "  [  f s 6 ]  [fsOJPlease  type  in 
a  question  that  would  distinguish  a [fs2] 
" + AN  $  +  "  [ f  s  6 ] from  a[fs2]"+A$  +  "[fs6]  [fsO]? 
") 

630  INPUT" [fs6] "QUEST$ 

640  QUE ST$=FN_CONV (QUEST$) 

650  IF  LEN (QUEST$) =0  THEN  PROC_CL("[fs 
1 ] PLEASE  TYPE  IN  A  QUE S TON GOTO  630 
660  PROC_CL ( " [ f s 3 ] [fsO] And  the  answer 
for  a [ f s2 ] "+A$+" [f s3 ] would  be[fs0]?") 

67  0  IF  FN_YN  THEN  B  $  = " N "  : C  $  = " Y "  ELSE  B 
$  =  "  Y  "  :  C  $  =  "  N  " 

680  W%=VAL (RECORD$  (0)  ) 

690  RECORD$ (0)=STR$(W%+2) :RECORD$ (W%) = 
RECORD  $  ( CURRENT% ) 

700  RECORD  $  ( W%  + 1 ) = " / A " + A$ 

710  RECORD$  ( CURRENT% ) = " / Q " +QUE S T $  +  " / "  + 
C$  +  STR$  ( W  %  +  1 )  +"/"+B$  +  STR$  (W%)  +"/" 

720  ENDPROC 
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730  DEF  FN_YN 
7  4  0  LOCAL  KEY  $ 

7  50  *  F  X  15  1 

7  60  REPEAT  KEY  $  =  GE  T  $ 

770  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y  $  = " N "  OR  K E  Y  $  =  " N " 

7  80  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  PRINT 
"Yes" : =TRUE  ELSE  P RI NT " No " : =F AL SE 
790  DEF  FN_UCASE(S$) 

800  LOCAL  C$,T$,L% 

810  T  $  =  "  " 

820  FOR  L%=1  TO  LEN(S$) 

830  C  $  =MI D  $  (S$, L  % ,  1) 

84  0  IF  C  $  >  = " A "  AND  C$<="Z"  THEN  T$  =  T$  + 
C$ 

850  IF  C$>="0"  AND  C$<="9"  THEN  T$=T$+ 
C$ 

860  IF  C  $  >  = " a "  AND  C$<="z"  THEN  T$  =  T$  + 
CHR$ (ASC (C$ ) -32 ) 

870  IF  C  $  = "  "  AND  RIGHT$  (T$,  1) <>"  "  TH 

EN  T  $  =  T  $  +  "  " 

880  NEXT 

890  =MID$  (  T  $ , 2 ) 

900  DEF  FN_CONV ( S  $ ) 

910  LOCAL  Q$,T$,C$,L% 

920  Q$=FN_UCASE ( S$ ) 

930  T $  =  LEF T $  (Q$,  1) 

940  FOR  L%  =  2  TO  LEN  ( Q  $ ) 

950  C$=MID$ (Q$,L%, 1) 

960  IF  C  $  >  = " A "  AND  C$<="Z"  THEN  T$=T$+ 
CHR$  (ASC (C$ ) +32 )  ELSE  T$  =  T$  +  C$ 

970  NEXT 
980  =T  $ 

990  DEF  PROC_CL(S$) 

1000  LOCAL  C$, L%, C%, F% 

1010  C%  =  135 :F%  =  FALSE : PRINT"  [fs9] 

102  0  FOR  L%  =  1  TO  LEN  ( S  $ ) 

1030  C$=MID$ (S$,L%, 1) 

104  0  IF  C  $  =  "  [ f  s  0 ]  "  OR  POS  +  INSTR (MID$  (S$ 
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,  L  %  )  ,  "  " )  >39  THEN  PRINT ' CHR$  (C% ); CHR$  ( 13 

7+F%)  ; 

1050  IF  C  $  > "  [ f  s  0 ]  "  AND  C  $  < "  [ f  s  8 ]  "  THEN 
C%=ASC (C$ ) 

10  60  IF  C$<>"  [fsO]  "  THEN  PRINT  C$; 

107  0  IF  C  $  =  "  [ f  s  8 ]  "  THEN  F%  =  TRUE 

1080  IF  C  $  =  "  [ f  s  9 ]  "  THEN  F  %  =  FAL  SE 

1090  NEXT 

1100  ENDPROC 

1110  DEF  PROC_DH(S$) 

1120  PRINT  CHR$  (141)  ; S  $ 

1130  PRINT  CHR$  (141)  ; S  $ 

1140  IF  RIGHT$  (S$, 1)  <>"  [fsO]  "  THEN  PRIN 
T 

1150  ENDPROC 

1160  DEF  P  ROC_OP  T I ON  S 

1170  CLOSE  #0 

1180  REPEAT 

1190  QUI T  =  F AL  SE 

1200  VDU  26,12, 15 

1210  PRINT  TAB (12, 2)  ;CHR$  (141)  ;  "  [fs3] 
OPTIONS" 

1220  PRINT  TAB (12,  3)  ;CHR$  (141)  ;  "  [fs3] 
OPTIONS" ' 

1230  PROC_DH ( "  [fsl]l)  List  Database 

.  ") 

1240  PROC_DH ( "  [ f si ] 3 ) [ f s2 ] Load  Data 

base.") 

1250  PROC_DH (  "  [ f si ] 5 )  [ f s3 ] Save  Data 

base.") 

12  60  PROC_DH ( "  [ f si  ]  7  )  [f s4 ] Start  Aga 

in.") 

127  0  PROC_DH ( "  [fsl] 9)  [fs6] Quit  Pror 
am.") 

1280  PRINT" [fsl]RETURN  continues  ques 
t  i  o  n  s  .  "  ' 

1290  PROC_DH(" [fsl] Your  choice  1,3,5, 
7,9  or  RETURN  ?[fs0]") 

1300  PRINT  TAB  (36,  22  )  ; 
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1310  REPEAT  KEY  $  =  GET  $ 

1320  UNTIL  VAL ( KEY  $ )  MOD  2  =  1  OR  ASC 

(  KE  Y  $ )  =13 

1330  PRINT  KEY$;CHR$ (10) ;CHR$ (8) ;KEY$ 


1340 

IF 

KE  Y  $  = " 1  " 

THEN 

P  ROC_ 

LIST 

1350 

IF 

KE  Y  $  =  "  3  " 

THEN 

P  ROC_ 

LOAD 

13  60 

IF 

KE  Y  $  = " 5  " 

THEN 

P  ROC_ 

SAVE 

137  0 

IF 

KE  Y  $  =  "  7  " 

THEN 

RUN 

1380 

IF 

KE  Y  $  = " 9  " 

Q  U I  T  = 

TRUE 

1390  UNTIL  QUIT  OR  KE Y $ =CHR$ ( 1 3 ) 

1400  IF  KEY$=CHR$ (13)  THEN  PROC_TITLE(T 
I TLE  $ ) 

1410  ENDPROC 

142  0  DEF  P  ROC_L 1ST 

1430  LOCAL  L  % 

1440  VDU  12, 10, 10, 14 

1450  PROC_DH(" [fsl] Contents  of  Database 
") 

1460  PRINT 

14  7  0  PROC_DH ("  [fs3]Questions.  ") 

1480  FOR  L%=1  TO  VAL ( RECORD $( 0 ))- 1 
1490  IF  LEFT$ (RECORD$ (L%) , 2) ="/Q"  THEN 
PRINT"  [ f  s  3 ]  " ; M I D  $  ( RECORD  $  (L%)  ,  3,  INSTR(MI 
D  $  ( RECORD  $  (L%)  ,  3)  ,  "/" ) -1) 

1500  NEXT 
1510  PRINT' 

1520  PROC_DH ("[ fs2 ] Answers ) 

1530  FOR  L%=1  TO  VAL ( RECORD $( 0 ))- 1 
1540  IF  LEFT$ (RECORD$ (L%) , 2) = " / A "  THEN 
PRINT"  [ f  s  2 ]  " ; M I D  $  ( RECORD  $  (L%)  ,  3) 

1550  NEXT 
1560  PRINT 
1570  VDU  15 

1580  PROC_DH (" [fsl] Press  RETURN  to  cont 
inue.  [ f  s  0 ]  " ) 

1590  *FX  15  1 
1600  REPEAT  UNTIL  GET=13 
1610  VDU  15 
1620  ENDPROC 
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1630  DEF  PROC_LOAD 
1640  PROC_TITLE ( "LOAD" ) 

1650  PRINT ' ' 

1660  PROC_DH ( " [ f s 1 ] Are  you  sure  you  wis 
h  to  load? [ f sO ]  "  ) 

1670  IF  NOT  FN_YN  THEN  ENDPROC 

1680  INPUT ' ' " [ f s 3 ] F i lename  for  Database 

: [fs2] "filename$ 

1690  filename$=LEFT$ (filename?, 10) 

1700  ch=OPENIN (filename?) 

1710  IF  ch=0  THEN  PRINT" [ fs2 ]"; filename 
?; " [fs3] does  not  exist. ":GOTO  1650 
1720  INPUT  #ch, TITLE$ 

1730  PROC_TITLE (TITLE$ ) 

1740  PROC_DH (" [fs8] [fs6] LOADING  "+filen 
ame  $  ) 

1750  FOR  A%  =  0  TO  D% 

1760  RECORD$ ( A% ) = " " 

1770  NEXT 
1780  index=0 
1790  REPEAT 

1800  INPUT  #ch, RECORD$ ( index) 

1810  index=index+l 
1820  UNTIL  EOF  #ch 
1830  CLOSE  #  ch 

184  0  PROC_DH ( "  [ f si ] LOADED  [  f sO ]  "  ) 

1850  PRINT 

1860  PROC_DH (" [fsl] Press  RETURN  to  cont 
inue.  [ f  s  0 ] " ) 

1870  *FX  15  1 

1880  REPEAT  UNTIL  GET=13 

1890  ENDPROC 

1900  DEF  PROC_SAVE 

1910  PROC_TITLE ( " SAVE" ) 

1  92  0  PRINT  '  ' 

1930  PROC_DH ( " [ f s 1 ] Are  you  sure  you  wan 
t  t  o  s  ave  ? " ) 

1940  IF  NOT  FN_YN  THEN  ENDPROC 

1950  INPUT ''"[ f s 3 ] F i lename  for  Database 
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:  [ f  s  2 ]  "filename$ 

1960  filename$=LEFT$ (filename$, 10) 

1970  IF  LEN (filename$) =0  THEN  1920 
1980  ch=OPENOUT (filename$) 

1990  PROC_DH ( "  [  f s  6 ]  [fs8]  SAVING  "+filena 
me  $  ) 

2000  PRINT  #ch, TITLE$ 

2010  index=0 
2020  REPEAT 

2030  IF  RECORDS (index) <>""  THEN  PRINT 
#  ch , RECORD  $ (index) 

2040  index=index+l 

2050  UNTIL  RECORD$ ( index) =" " 

2060  CLOSE  #  ch 

2070  PROC_DH (" [f si] SAVED" ) 

2080  PRINT 

2090  PROC_DH (" [fsl] Press  RETURN  to  cont 
inue .  [ f  s  0 ] " ) 

2100  *FX  15  1 

2110  REPEAT  UNTIL  GET=13 

2120  ENDPROC 

2130  DEF  PROC_TITLE  (TITLE$) 

2140  VDU  26, 12 

2150  PRINT  TAB ( 18- (LEN (TITLE$ )  DIV  2), 2 
)  ; CHR$  (141)  ;  "  [fs3]  " ; TITLE$ 

2160  PRINT  TAB ( 18- (LEN (TITLE$ )  DIV  2), 3 
)  ; CHR$  (141)  ;  "  [fsl]  " ; TITLE$ 

2170  VDU  28,0,24,39,4,12 
2180  ENDPROC 

2190  DATA  "ANIMAL" ," 4 /QIs  it  a  Mamma 
1/Y2/N3", "/ALTON", "/AFISH" 
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Just  for  Fun 


Minefield 


In  Minefield,  written  by  Neal  Cavalier-Smith,  you  use  the  'Z', 
'X',  and  '?'  keys  to  move  yourself  around  the  screen,  in  which 
you  have  to  manoeuvre  your  tank  across  the  minefield  to  get  to 
the  other  side. 

Once  you  get  safely  to  the  right  hand-side  of  the  screen, 
you'll  be  given  the  chance  of  tackling  a  more  difficult  field.  The 
blank  column  on  the  left-hand  side  of  the  screen  is  a  safe  'no 
man's  land'  where  you  can  move  around  in  safety.  There  is  no 
danger  of  a  mine  being  planted  there. 

The  number  in  the  bottom  right-hand  corner  of  the  screen 
denotes  the  number  of  mines  which  your  tank  is  near  (includ¬ 
ing  those  which  are  diagonally  adjacent  to  it).  The  tank's  colour 
(and  the  colour  of  its  tracks)  tells  you  how  many  mines  are 
near,  as  follows: 

0  black 

1  red 

2  green 

3  blue 

4  magenta 

You'll  be  penalized  if  you  take  too  long  to  make  a  decision. 
After  each  level  (or  after  you've  been  blown  to  bits)  you'll  be 
offered  a  replay.  If  you  reply  'Y'  to  this  offer,  the  BBC  Micro 
will  then  retrace  your  moves  from  start  to  finish,  showing  where 
all  the  mines  were  placed. 


10  REM  MINEFIELD 

20  REM  By  Neal  Cavalier-Smith 
30 

40  MODE  5 
50  PROCsetup 
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60  REPEAT 
70  PROCplay 
80  UNTIL  FALSE 
90  STOP 

100  DEFPROCsetup 

110  VDU23, 130, -1,-1, -1,-1, -1,-1, -1,-1 
120  VDU23, 131, 0,0, 0,0, 0,126, -1,126 
130  VDU23, 132, 81, 29, 198, 42, 36, 114, 247, 
12  6 

140  VDU23, 133, 0,0, 31, 48, 120, 254, 125, 17 

0 

150  VDU23, 134, 0,0, 31, 48, 120, -1,252, 85 

160  VDU23, 1, 0, 0, 0, 0, 0, 0, 0, 0 

170  L= 1 

180  S  =  0 

190  X%=1 

200  Y%=13 

210  move=0 

220  D IMK  (500) 

230  D IMD (500) 

240  DIMM (18, 28) 

250  FORK%  =  2  TOl 8 
260  F0RD%  =  1 T02  7 

27  0  IFRND  ( 1 0  +L  %  *  2 )  <9THENM(K%,D%)=999 

280  VDU31, K%, D%, 131 

290  NEXT : NEXT 

300  ENDPROC 

310  DEFPROCplay 

320  REPEAT 

330  VDU19, 0, 3, 0, 0, 0, 0, 0 
340  VDU19, 0, 3, 0, 0, 0, 0, 0 
350  VDU19, 2, 4, 0, 0, 0, 0, 0 
360  SOUND1, -15,  5000,  1 
37  0  F  ORX=  0  TO  2  7 

380  IFX<2 0THENVDU31 , 19-X,0,32,31,X+1 
,28, 32, 31, 19 -X, 0,64, 31, X, 28, 64 
390  COLOUR1 
400  VDU31, X%, Y%, 133 
410  COLOUR2 
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420  VDU31, 0, X+l, 32, 31, 19, 28-X, 32, 31, 
0,X, 64, 31, 19, 28-X, 64 
430  COLOUR1 
440  VDU31, X%, Y%, 134 

4  50  IFINKEY  (2  )  0-1  THEN  PROCmove 
460  C0L0UR2 

470  NEXT 

480  UNTIL  FALSE 

490  ENDPROC 

500  DEFPROCmove 

510  move=move+l 

520  IFINKEY (-98) ANDX% > 0 1 THENX%=X% - 1 : VD 
U31, X%+1, Y%, 130 

530  IFINKEY (-67) ANDX% < 1 8 THENX%=X% + 1 : VD 
U31, X%-1, Y%, 130 

54  0  IFINKEY (-73) AND Y% > 0 1  THEN Y %  =  Y% - 1 :PR 
INTTAB ( X% , Y  %  + 1 )  ; CHR$ 13  0; 

55  0  IFINKEY ( - 1 0 5 ) AND Y % < 2 7  THEN Y%  =  Y %  + 1  :P 
RINTTAB (X%, Y%-1) ;CHR$130; 

560  VDU31, X%, Y%, 134 

570  D ( move ) =X% : K (mo ve ) = Y% 

5  8  0  ad  j  =  0 

590  IFX%=18THENPROCnext level : RUN 
600  FORK%=— ITOl 
610  FORD%=— ITOl 

620  IFM (X%+K%, Y%+D%) =999THENadj=adj+l 

630  NEXT : NEXT 

640  PRINTTAB (18, 27) ; adj 

650  ad=adj 

660  IFad j >2 THENad=ad+l 

670  IFM (X%, Y%) =999THENPROCblam 

680  VDU19, 1, ad, 0, 0, 0, 0,  0 

690  ENDPROC 

700  DEFPROCblam 

710  VDU31, X%, Y%, 132 

72  0  FORK%  =  2  TOl 8 

730  FORD%  =  l T02  7 

740  IFM ( K% , D  % ) =9  9  9THENVDU3 1 , K%, D%,  131 
750  NEXT : NEXT 
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760  PROCreplay 

770  PROClost 

780  delay=INKEY (200) 

790  RUN 

800  ENDPROC 

810  DEFPROCreplay 

820  PRINT  TAB (4, 28) ; "REPLAY  (Y/N)?"; 

830  *FX  15  1 

840  REPEAT  K$=GET$ 

850  UNTIL  K $  =  " Y "  OR  K$  =  "N" 

860  CLG 

87  0  IF  K  $  <  > " Y "  THENENDPROC 
880  FORK%  =  2  TOl 8 
8  90  FORD%  =  l T02  7 

900  IFM ( K% , D  % ) =  9  9  9  T  HENVDU3 1 , K%, D%, 131 
910  NEXT : NEXT 
920  FORX=lTOmove 
930  FORC= 1 TO 1 0 

940  PRINT  TAB (D (X) , K (X) ) ; CHR$133; 

950  PRINT  TAB (D (X) , K (X) ) ; CHR$134 ; 

960  NEXT 

970  PRINT  TAB (D (X) , K (X) ) ; " 

980  NEXT 

990  PRINT  TAB (D (move) , K (move) ); CHR$132 

1000  delay=INKEY (100) 

1010  ENDPROC 
1020  DEFPROCnext level 
1030  L=L+1 
1040  CLG 

1050  VDU19, 0, 5, 0, 0, 0, 0, 0 

1060  PRINTTAB ( 0 , 3 ) ; "  Congratulations!" 

1070  PRINTTAB (0,8); "You  may  now  proceed 

t  o  le ve 1  "  ;  L 

1080  S= S +1 5 0 -mo ve +S % 

1090  PRINT : PRINT : PRINT : PRINT 
1100  S%=S 

1110  PRINT" [spc3] SCORE  ";S 
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1120  PROCreplay 

1130  ENDPROC 

1140  DEFPROClost 

1150  PRINT : PRINT : PRINT : PRINT 

1160  S=S+90-move+S% 

1170  S%=0 

1180  PRINT" [spc3] You  scored  ";S 
1190  ENDPROC 
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Saucer  Encounter 


In  this  challenging  game,  based  on  an  idea  by  Garry  Wilson, 
you  are  working  in  real  time,  trying  to  land  your  spacecraft  on 
the  flying  saucer  which  moves  across  the  bottom  of  the  screen. 

When  the  game  is  underway,  the  screen  is  dotted  with 
randomly  plotted  stars,  and  there'  seven  a  right  bracket  for  a 
moon.  Fuel  is  being  consumed  all  the  time,  and  you  must  land 
on  the  saucer  before  all  the  fuel  has  been  used  up.  Your  '  pilot 
rating'  depends,  in  part,  on  how  little  fuel  you  used  up  to  land 
successfully.  Crash  landings  do  not  acquire  a  rating. 


10 

REM  SAUCER  ENCOUNTER 

20 

30 

REPEAT 

40 

MODE  5 

50 

P  ROC_i n i t i a 1 i s  e 

60 

P  ROC_p lay 

70 

UNTIL  NOT  FN_ne  wg  ame 

80 

MODE  7 

90 

END 

100 

DEF  P  ROC_p lay 

110 

REPEAT 

12  0 

IF  fuel%<=0  THEN  PROC_gravit y : GO 

i  170 

130 

IF  fuel%<=40  THEN  SOUND 

1, -10, 10 

1 

140 

IF  INKEY  (-98)  THEN  PROC_ 

right 

150 

IF  INKEY  (-67)  THEN  PROC_ 

left 

160 

IF  INKEY  (-105)  THEN  PROC 

_up  ELSE 

ROC_ 

gravity 

170 

GCOL  0,0 

180 

MOVE  1150, 1004 

190 

DRAW  350+4 *fuel%, 1004 
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2  00  MOVE  craftx%, crafty% :PRINT"  [f sO] 

[  f  s  1  ]  " 

210  IF  fuel%>0  THEN  c r a f t x % =c r a f t x % + 
velx%  ELSE  cr a f t x%  =  cr af t x%  +  1 6  * SGN ( s au ce r 
x%-craftx%) 

220  IF  craftx%>=1103  THEN  craftx%=0 

230  IF  craf t x%<0  THEN  craftx%=1103 

240  crafty%=craf ty%+vely% 

250  IF  craf t y%<l  THEN  crafty%=960 

260  IF  crafty%>960  THEN  crafty%=32 

270  MOVE  saucerx%, 96:PRINT" [fs2] [fs3 
]  [  f  s  4  ]  " 

280  s auce r x%=s aucer x% + 1 6 

290  IF  s auce rx%>= 1 0 8 7  THEN  saucerx%= 

0 

300  GCOL  0,1 

310  MOVE  craftx%,  crafty% :PRINT"  [f sO] 

[  f  s  1  ]  " 

320  GCOL  0,3 

330  MOVE  saucerx%, 96:PRINT"  [fs2]  [fs3 

]  [  f  s4  ]  " 

340  UNTIL  POINT (craftx%+20, crafty%-3 
2 ) =3  OR  POINT (craftx%+72, crafty%-32) =3  O 
R  POINT ( craf t x%+4 8 , craf ty% ) =3 

350  IF  POINT (craftx%+48, crafty%) =3  OR 
craf tx%< ( saucerx%+l 6 )  OR  craftx%> ( saucer 
x%  +  4  8 )  OR  vely%<-7  THEN  PROC_crash  ELSE 
PROC_dock 

360  ENDPROC 

370  DEF  PROC_init ialise 
380  VDU  19,1,3,0,0,0 
390  VDU  19,2,7,0,0,0 
400  VDU  19,3,1,0,0,0 
410  VDU  23, 0, 10, 32, 0; 0; 0; 

420  VDU  23,128,0,1,1,7,1,3,7,12 
430  VDU  23,129,128,192,192,240,192,224 
,240,24 

440  VDU  23,130,0,0,0,0,0,3,15,63 
450  VDU  23,131,0,0,0,0,0,255,170,255 
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460  VDU  23,132,0,0,0,0,0,192,240,252 
470  FOR  stars%=l  TO  100 

4  8  0  GCOL  0, RND  (2 ) 

490  PLOT  69, RND ( 12 7 9) , RND ( 992 ) 

500  NEXT  st  ar s  % 

510  COLOUR  2 

52  0  PRINT  TAB ( 18, 3 )  ;  "  )  " 

530  velx%=0 : vely%=0 

540  craftx%=RND (1103) :crafty%=950 
550  fuel%=200 

5  60  COLOUR  3 : PRINT  TAB ( 0 , 0 );" FUEL  :  " 
570  GCOL  0,3 

580  MOVE  350,1004 

590  PLOT  1, (fuel%/5) *4, 0 

600  GCOL  0,2 

610  DRAW  350+4 *fuel%, 1004 

620  saucerx%=0 

630  VDU  5 

640  ENDPROC 

650  DEF  PROC_r ight 

660  velx%=velx%+l 

670  IF  velx%>2  5  THEN  velx%  =  25 

680  fuel%=fuel%-l 

690  ENDPROC 

700  DEF  PROC_lef t 

710  velx%=velx%-l 

720  IF  ve lx%  <-2  5  THEN  velx%  =  -25 

730  fuel%=fuel%-l 

740  ENDPROC 

750  ENDPROC 

760  DEF  PROC_up 

770  vely%=vely%+l 

780  IF  vely%>2  5  THEN  vely%  =  25 

790  fuel%=fuel%-l 

800  SOUND  &10, -10, 4, 3 

810  ENDPROC 

820  DEF  PROC_gravit y 

830  vely%=vely%-l 

84  0  IF  ve ly %  <-2  5  THEN  vely%  =  -25 
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850  ENDPROC 

860  DEF  PROC_dock 

870  VDU  4,31,0,0 


880 

VDU  19, 

2, 11, 0,0,0 

8  90 

COLOUR 

2 

900 

PRINT" 

Congratulat 

ions 

!  "  1 

910 

COLOUR 

1 

92  0 

PRINT ' " 

You  have  landed 

your"  ; 

930 

PRINT ' " 

space  craft 

safely  "  ; 

94  0 

PRINT ' " 

and  are  due 

for 

a  [  spc3  ] 

950 

PRINT ' " 

bonus  of  "  ; 

1.80 

*  f ue 1% ; 

960 

PRINT ' " 

for  saving  fuel. 

ii 

97  0 

ENDPROC 

980 

DEF  PROC_crash 

990  PROC_explode 
1000  VDU  4,31,0,0 
1010  COLOUR  2 

1020  PRINT"  [ spc6] OH  DEAR !  [  spc5 ]  "  ' 

1030  PRINT' "You  have  crashed  and"; 
1040  PRINT caused  '10bn  of  lost"; 
1050  PRINT ' "revenue . " 

1060  PRINT ' "That  doesn't  matter  "; 
1070  PRINT ' "because  you  did  not  "; 
1080  PRINT '" survive  anyway!"' 

1090  ENDPROC 

1100  DEF  PROC_explode 

1110  FOR  f lame%=0  TO  20+fuel% 

1120  GCOL  0 , RND ( 4 ) - 1 

1130  MOVE  craf t x%+5 0 , craf ty%-l 6 

1140  PLOT  1, RND (400) -200, RND (400) -200 

1150  SOUND  &10, -RND  (15)  ,  4, 2 

1160  NEXT  f 1 ame  % 

1170  ENDPROC 

1180  DEF  FN_newgame 

1190  *FX  15  0 

1200  REPEAT  UNTIL  INKEY$(0)="" 

1210  PRINT' '"Would  you  like  to  "; 
1220  PRINT ' "play  again  (Y/N)  ?"; 

12  30  REPEAT  key  $  =  GE  T  $ 


127 


12  4  0  UNTIL  k e y $  =  " Y "  OR  key$  =  "y" 
y  $  = " N "  OR  k e y $  =  " n " 

12  50  IF  k e y $  =  " Y "  OR  key$  =  "y"  THEN 
ELSE  =FALSE 


OR  ke 
=  TRUE 
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Eliminate 


Now  that  the  maze  has  vanished,  the  ghost  are  on  the  run.  In 
this  great  arcade  game,  your  mission  is  to  seek  out  and  destroy. 
There  are  two  enemies  on  the  screen,  and  you  can  pick  either 
one  of  them  to  eliminate.  You  do  this  by  running  over  it. 


10 
20 
30 
4  0 
50 
60 
70 
80 
90 
100 
110 
120 
130 

60 

140 

126, 60 
150 

,  0 

160 

60 

17  0 

60 

180 

,  85 
190 
200 
210 


REM  ELIMINATE 

MODE  4 

PROC_INIT 

REPEAT 

PROC_NEWGAME 

PROC_PLAY 

UNTIL  NOT  FN_AN OTHER 
END 

DEF  PROC_INI T 

VDU  23, 0, 10, 32, 0; 0; 0; 

VDU  23,128,0,66,231,191,-1,-1,126, 

VDU  23,129,60,118,252,248,248,252, 

VDU  23,130,60,126,-1,-1,253,231,66 

VDU  23,131,60,110,63,31,31,63,126, 

VDU  23,132,60,126,-1,-1,-1,-1,126, 

VDU  23,133,60,126,219,-1,231,-1,-1 


AL  %  =  3 

DIM  X% (AL%) , Y% (AL%) 
HI GH= 15000 
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220  ENDPROC 

230  DEF  PROC_NEWGAME 

240  PA=6 : PD=5 : N%=AL% 

250  PAE=6 : PDE=5 
260  S$=" [fsl] " 

270  PROC_B ORDER 
2  80  FOR  A%  =  0  TO  N% 

2  90  X%  (A%) =RND  (37)  :Y%  { A  % ) =2+RND  (27)  : VD 
U31,X%  { A  % )  ,Y%  { A  % )  ,  133 
300  NEXT 
310  ENDPROC 
320  DEF  PROC_B ORDER 
330  CL  S 

34  0  PRINT  TAB (0,  1)  ; STRING$  (40,  "  [fsl]  ") 

} 

350  FOR  Y%=2  TO  29 

360  PRINT  TAB (0, Y%)  ;  "  [fsO]  TAB (39, Y%) 
?  "  [ f  s  2  ]  "; 

370  NEXT 

380  PRINT  TAB (0, 30) ; STRING$ (40, " [fs3] " 

)  ? 

390  PRINT  TAB (0, 0) ; "HIGH  : " ; H I GH ; TAB ( 2 
0,0); "SCORE  : 0"; TAB ( 3 5 , 0 )  ;  "  [ f s 5 ]  [ f s 5 ]  [  f s 
5]  [ f  s  5  ]  "; 

400  ENDPROC 
410  DEF  PROC_PLAY 
420  TIME=0 
430  REPEAT 

440  F  ORA%  =  1  TO  N%-1 

450  PROC_ALIEN (RND (1+N%) -1) 

460  NEXT 

470  IF  FNHIT  THEN  PROC_DIE 
480  PRINT  TAB (PAE, PDE) ; "  " 

490  PDE=PD : P AE=P A 

500  PRINT  TAB ( PA, PD ) ; 

510  IF  TIME  MOD  2=0  THEN  PRINTS$;ELS 
E  PRINT"  [  f s4 ]  "  ; 

52  0  IF  P A<  3  8  THEN  IF  INKEY(-67)  THEN 
S  $  = "  [fsl]  " : P A  =  P A+ 1 
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530  IF  P A> 1  THEN  IF  INKEY(-98)  THEN 
S$="  [f S3]  "  : PA  =  PA-1 

54  0  IF  PD  >  2  THEN  IF  INKEY(-73)  THEN 
S  $  =  "  [f sO]  " : PD  =  PD-1 

550  IF  PD  <  2  9  THEN  IF  INKEY(-105)  THE 
N  S$=" [f s2] " :PD=PD+1 

560  PRINT  TAB (27, 0) ; TIME; 

57  0  UNTIL  N%  <  0 

580  T%=TIME 

590  IF  T%<HIGH  THEN  HIGH=T% : PRINT  TAB ( 
10, 10); "A  NEW  BEST  SCORE!"; 

600  PRINT  TAB (0,  0)  ;  "HIGH  :  " ; H I GH ; SP C  (  2 
O-POS)  ; "SCORE  :  " ; T%; 

610  *FX  15  1 

620  ENDPROC 

630  DEF  FNHIT 

640  H%=FALSE 

650  FOR  A%  =  0  TO  N% 

660  IF  (  ( X %  ( A% ) =P A )  AND  (Y%(A%)=PD)  )  T 
HEN  H%=TRUE 
670  NEXT 
680  =H% 

690  DEF  PROC_D IE 
700  VDU  7 

710  PRINT  TAB ( 35+N%, 0 ) ; "  "; 

720  PRINT  TAB (PA, PD ) ; S$ ; 

730  FOR  A%  =  0  TO  N% 

740  VDU  3 1,X%  ( A  % )  ,Y%  ( A  % )  ,  32 
750  X%  (A%) =RND  (37)  :Y%  ( A  % ) =2+RND  (27)  : VD 
U31, X%  ( A  % )  , Y  %  ( A% ) 

7  60  IF  A%ON%  THEN  VDU  133 
770  NEXT 
780  N%  =  N%  —  1 
790  ENDPROC 

800  DEF  PROC_ALIEN ( A  % ) 

810  VDU  31, X% (A%) , Y% (A%) , 32 :X% (A%) =X% ( 
A% ) +SGN (X% ( A% ) -PA) +RND (3)-2:Y%(A%)=Y%(A% 
)  +SGN  (Y%  (A%)  —PD)  +RND  (3)  -2 

820  IF  SGN (X% ( A% ) -PA) =0  THEN  X%(A%)=X% 
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( A% ) +RND ( 3 ) -2 

830  IF  SGN (Y% (A%) -PA) =0  THEN  Y%(A%)=Y% 
( A% ) +RND ( 3 ) -2 

840  IF  X% ( A% ) <2  THEN  X%(A%)=1 
850  IF  X%  { A  % ) >37  THEN  X%(A%)=38 

8  60  IF  Y%  { A  % ) <5  THEN  Y%(A%)=4 
87  0  IF  Y%  { A  % ) >29  THEN  Y%(A%)=29 
880  VDU  31, X% (A%) , Y% (A%) , 133 
890  ENDPROC 

900  DEF  FN_ANOTHER 
910  FOR  A%  =  0  TO  N% 

92  0  PRINT  TAB (X%  { A  % )  , Y%  { A  % )  )  ;  " 

930  NEXT 

940  PRINT  TAB ( 5 , 1 5 ) ; " Do  you  want  anoth 
e r  go  ? " ; 

950  REPEAT  KEY  $  =  GE  T  $ 

9  60  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

970  PRINT  KEY  $ 

980  =(KEY$="Y") 
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Dropout 


Full  instructions  for  this  dynamic  game,  based  on  an  idea  by 
Paul  Toland,  are  included  in  the  program.  Aliens  are  stacked 
above  you,  ready  to  fall  when  their  stack  is  full.  You  can  shoot 
an  alien  at  any  time,  but  the  lower  they  are  when  hit,  the  more 
points  they  are  worth. 

The  difficulty  level  determines  the  speed  with  which  the 
aliens  appear  above  you.  The  program  includes  a  high-score 
feature. 


10 

REM  DROPOUT 

20 

30 

MODE  1 

40 

PROC_INI T 

50 

REPEAT 

60 

PROC_INSTR 

70 

PROC_PLAY 

80 

PROC_SCORE  S 

90 

UNTIL  NOT  FN 

100 

MODE  7 

110 

END 

120 

DEF  PROC_INI T 

130 

VDU  19,2,4,0,0 

131 

VDU1 9, 2 , 6 ; 0  ; 

14  0 

VDU  19,3,2,0,0 

150 

DIM  F% ( 9, 2 )  ,  S% 

160 

FOR  S  %  =  1  TO  10 

17  0 

Z%  (  S % ) =1000- 

+  S  TR$ 

<S%) 

180 

NEXT 

190 

VDU  23,0,10,32 

200 

VDU  23,128,24, 

255 

_ANOTHER 

,  0 
,  0 

(13)  ,  Z%  (10)  , Z$  (10) 
(S%*100)  : Z  $  ( S  % ) = " ME " 

,  0; 0; 0; 

24,24,60,60,255,255, 
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210  VDU  23,129,60,60,60,60,60,60,60,25 
5 

220  VDU  23,130,0,231,66,126,82,255,255 

,102 

230  VDU  23,131,48,24,12,24,48,24,12,24 
240  VDU  23,132,255,255,24,60,102,195,1 
95,0 

2  50  ENVELOPE  1 , 3 , - 4 , - 1 , 2 , 6 , 6 , 2 8 , 8 1 , - 3 , 
-4,-2, 126, 50 

260  DIM  code  7 
270  P%=code 
280  [OPT  2 
290  LD A  #  &  8  7 
300  JSR  &FFF4 
310  TXA 
320  RTS : ] 

330  ENDPROC 

340  DEF  PROC_INSTR 

350  PROC_SE  TUP 

360  VDU  28,2, 31, 36, 9 

370  COLOUR  3 

380  PRINT  TAB ( 11 );" INSTRUCTIONS " 

390  PRINT  TAB ( 10 );"==============" ' 

400  COLOUR  2 

410  PRINT"  The  aliens  are  gathering  in 
t  heir " 

420  PRINT"launch  chutes  above. Every  ti 
me  one" 

430  PRINT"of  the  chutes  become  full, an 
alien" 

440  PRINT " de s cends  and  explodes  on  imp 
act" 

450  PRINT"with  the  ground  (or  you!) . Yo 
u  can" 

460  PRINT " de st roy  an  alien  at  any  time 
by" 

470  PRINT"moving  under  the  alien  and  f 
iring" 

480  PRINT "a  missile  at  it." 
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490  COLOUR  1 

500  PRINT' TAB ( 10 ) ; "CONTROLS : 

510  PRINT' "LEFT  -  CAPS  LOCK" 

520  PRINT' "RIGHT  -  CTRL" 

530  PRINT '"FIRE  -  RETURN" 

540  PRINT' '"Speed  level  (1-5)  5-slow  : 

fl  • 
r 

550  *FX  15  1 

560  REPEAT  KEY  $  =  GE  T  $ 

57  0  UNTIL  KEY  $  >= " 0 "  AND  KEY$<"6" 

580  SPD=VAL (KEY$) 

590  VDU  12 

600  PROC_HI GHS  CORE  S 

610  PRINT' "Press  SPACE  BAR  to  play"; 

620  REPEAT  UNTIL  GET=32 

630  VDU  12,26 

640  ENDPROC 

650  DEF  PROC_PLAY 

660  COLOUR  1 : PRINT  TAB ( G% ,  3 0 )  ; "  [ f s 0 ]  "  ; 
670  HI T  =  F AL  SE 
680  REPEAT 

690  FOR  I%=1  TO  SPD+2 
700  FOR  J%=1  TO  5 

710  T  %  =  G% 

720  G%=G%+ ( INKEY ( -65 )  AND  G%>5)- 

( INKEY ( — 2 )  AND  G%<33) 

730  COLOUR  1 

740  IF  T%OG%  THEN  PRINT  TAB  (  T  % , 

3  0);"  " ; TAB ( G% , 3  0 )  ; "  [  f s  0 ]  "  ; 

750  IF  F% (J%, 1) =0  THEN  860 

760  COLOUR  1+(J%  MOD  3) 

770  PRINT  TAB (F% (J%, 2) , F% (J%, 1) ) 

.n  n  . 

i  i 

780  F% ( J%, 1) =F% ( J%, 1) +1 

7  90  PRINT  TAB (F% (J%,  2)  ,  F%  (J%,  1)  ) 

;  "  [  f  s  2  ]  "  ; 

800  IF  F% (J%, 1) <>30  THEN  860 

810  F% ( J%, 1) =0 :NF%=NF%+1 

82  0  PRINT  TAB (F% ( J%,  2 )  ,  30 )  ;  "  " 
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830  SOUND  &13,-10,0,1 

840  IF  G%=F% ( J% , 2 )  THEN  HIT=TRUE 

: J%=5 : I%=SPD+2 : SOUND  2,1,100,5 
850  SC%=SC%-10 : PROC_SCORE 

860  IF  BY%=0  THEN  TIME=0 : REPEAT 

UNTIL  TIME>2 : GOTO  990 

87  0  C  %  =  FN_CHAR ( BX% , B Y% ) 

880  PRINT  TAB (BX%, BY%)  ;  "  " 

890  BY%=BY%-1 : IF  BY%<8  THEN  BY%= 

0 : GO  TO  1000 

900  N  %  =  FN_CHAR ( BX% , B Y% ) 

910  IF  N%  =  3  2  AND  (C%  =  32  OR  C%  =  13 

1)  THEN  COLOUR  2:PRINT  TAB ( BX% , B Y % ) ; " [ f s 
3 ] " : SOUND  &ll,-(BY%-8) /1.4,255-BY%,2:GOT 
O  1000 

920  SOUND  &11, -10, 100, 1 : SC%=SC%+ 

BY% : PROC_SCORE 

930  PRINT  TAB (BX%, BY%) ; "  ";:NF%= 

NF  %  + 1 

940  a%=0 

950  FOR  A%  =  1  TO  5 

960  IF  F% (A%, 1) =BY%  AND  F%(A%, 

2 )  =BX%  THEN  a%=A% 

970  NEXT 

980  BY%=0 :F% (a%, 1) =0 :GOTO  1000 

990  IF  INKEY (-74)  THEN  BY%=29:BX 

%  =  G% 

1000  NEXT  J% 

1010  NEXT  1% 

1020  IF  HIT  THEN  1160 

1030  COLOUR  3 

1040  FOR  H%=1  TO  (6-SPD)/2 

1050  p  o  s  =RND (14)  -1 

1060  IF  S  % ( po  s )  <5  THEN  S%(pos)=S%(p 

os) + 1 : PRINT  TAB (pos*2  +  6,8-S%(pos)  )  ;  "  [fs2 

]  " 

107  0  IF  S  % ( po  s )  <5  OR  NF%  =  0  THEN  115 

0 

1080  I%=1 
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1090  REPEAT  IF  F% (1%, 1) >0  THEN  I%=I 

%  +  l 

1100  UNTIL  F%  (1%,  1)  =0  OR  I %=  9 

1110  IF  I %=  9  AND  F%  (1%,  1)  <>0  THEN  1 

150 

1120  F% (1%, 1) =8 :F% (1%, 2 ) =pos*2+6 :NF 

%  =NF  %  —  1 

1130  PRINT  TAB (pos*2  +  6, 3)  ;  " 

1140  S% (pos ) =S% (pos ) -1 

1150  NEXT 

1160  UNTIL  HIT 

1170  ENDPROC 

1180  DEF  PROC_SCORE  S 

1190  *FX  202  32 

1200  *FX  15  1 

1210  VDU  28,2,31,36,9,12 

1220  COLOUR  3 : PRINT ' ' TAB ( 12 ) ; "GAME  OVER 

II 

1230  FOR  W%=1  TO  500 

1240  REPEAT  UNTIL  INKEY(-147) 

1250  NEXT 

1260  PROC_HI GHS  CORE  S 

1270  PRINT  "You  have  a  score  of  ";SC% 
1280  IF  SC%<Z%(10)  THEN  PRINT "This  is  n 
ot  enough  to  enter  it  in  to  the  HALL  OF 
FAME" : ENDPROC 

1290  PRINT' "Your  name  will  go  in  the"'" 
HALL  OF  FAME"' "for  all  to  see" 

1300  *FX  15  1 

1310  INPUT ' "What  is  your  name  :"Z$(10) 

1320  S%=10 

1330  Z%(10)=SC% 

1340  swap=TRUE 
1350  REPEAT 

1360  IF  Z%  ( S%-1 ) <  =  Z%  (  S% )  THEN  T%  =  Z%(S 
%)  : Z% (S%) =Z% ( S %- 1 )  :Z% (S%-1)=T%:T$  =  Z$  (S%) 

: Z$ (S%) =Z$ ( S% - 1 )  : Z$  ( S  %- 1 ) =T$ : S%  =  S%-1  ELS 
E  swap=FALSE 

1370  UNTIL  NOT  swap  OR  S%=1 
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1380  PROC_HI GHS  CORE  S 
1390  ENDPROC 
1400  DEF  FN_ANOTHER 
1410  COLOUR  1 

142  0  PRINT 1  '  "Do  you  wish  to  play  again 

•  II  • 

•  r 

1430  REPEAT  KEY  $  =  GE  T  $ 

1440  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y  $  = " N "  OR  K E  Y  $  =  " n " 

1450  VDU  26 

14  60  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  =TRUE 
ELSE  =FALSE 
1470  DEF  PROC_SETUP 
14  80  CL  S 

1490  FOR  I%=0  TO  13 

1500  COLOUR  1 : PRINT  TAB ( 5 +2  *  I % , 2 )  ;  "  [  f 
si]"; 

1510  COLOUR  2 :PRINT"  [fs4] 

1520  NEXT 

1530  COLOUR  1 :PRINT"  [fsl] 

1540  FOR  I %  =  3  TO  7 
1550  FOR  J%=0  TO  14 

1560  PRINT  TAB (5+2*J%, 1%)  ;  "  [fsl]  "  ; 

1570  NEXT 

1580  NEXT 

1590  T$=" DROPOUT" 

1600  G%=0 

1610  FOR  L%  =  1  TO  LEN  ( T $ ) 

1620  COLOUR  1 +  ( L%  MOD  3) 

1630  C$=MID$ (T$, L%, 1) 

1640  PRINT  TAB (10+2*L%, 0) ;C$; 

1  650  G%  =  G%  +  L% 

1660  PRINT  TAB (0, 1+G%) ; C$; TAB (38, 1+G% 

)  ;  C  $  ; 

1670  NEXT 

1680  COLOUR  1 

1  690  FOR  A%  =  0  TO  13 

1700  IF  A%  <10  THEN  F% (A%,  1) =0:F%  (A%, 2 
)  =0 
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1710  S  % ( A% ) =  0 
1720  NEXT 

1730  SC%=0 :G%=16 :BX%=0 :BY%=0 :NF%=5 
1740  PRINT  TAB (0, 1) ; "Score  :  0"; 

1750  ENDPROC 

1760  DEF  FN_CHAR ( X% , Y% ) 

177  0  PRINT  TAB ( X% , Y  % )  ; 

1780  =USR ( code )  AND  &FF 
1790  DEF  PROC_SCORE 
1800  COLOUR  1 

1810  PRINT  TAB (7,1)  ;SC%;"  [spc3]" 

1820  ENDPROC 

1830  DEF  PROC_HIGHSCORES 
184  0  CL  S 

1850  PRINT ' TAB ( 10 ); "HALL  OF  FAME"' 

1860  FOR  S  %  =  1  TO  10 

1870  IF  S  %  =  1  THEN  COLOUR  1  ELSE  COLOU 
R  3 

1880  PRINT  TAB (0)  ; S%; TAB (3)  ; Z%  (S%)  ;T 
AB (10) ;LEFT$ (Z$ (S%) , 20) 

1890  NEXT 
1900  PRINT' 

1910  ENDPROC 
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Pursuit 


In  this  game,  you  have  to  pilot  your  craft  around  the  screen, 
trying  to  stay  out  of  the  clutches  of  the  meanies.  Go  to  it,  your 
life  is  in  your  hands  (or,  at  least,  in  your  keyboard-pressing 
fingers). 


10  REM  PURSUIT 
20 

30  MODE  4 
40  PROC_INI T 
50  REPEAT 
60  PROC_NEWGAME 
70  PROC_PLAY 
80  UNTIL  NOT  FN_AN OTHER 
90  END 
100 

110  DEF  PROC_INI T 

120  VDU  23, 0, 10, 32, 0; 0; 0; 

130  VDU  23,128,8,8,28,62,127,8,8,28 
140  VDU  23,129,16,24,156,255,156,24,16 

,  0 

150  VDU  23,130,28,8,8,127,62,28,8,8 
160  VDU  23,131,8,24,57,255,57,24,8,0 
170  VDU  23,132,66,36,189,165,165,255,6 
0,36,231 
180  N%=3 

190  DIM  X% { N % )  , Y% { N % ) 

200  HI GH=  0 

210  ENDPROC 

220  DEF  PROC_NEWGAME 

230  PA=6 : PD=5 

240  PAE=6 : PDE=5 

250  S  $  =  "  [fsl]  " : L%  =  3 


140 


260  PROC_B ORDER 
27  0  FOR  A%  =  0  TO  N  % 

280  X% ( A% ) =RND ( 37 ) : Y% ( A% ) =2+RND (27): 

VDU31, X% (A%) , Y% (A%) , 132 
290  NEXT 
300  ENDPROC 
310  DEF  PROC_B ORDER 
32  0  CL  S 

330  PRINT  TAB (0,  1)  ; STRING$  (40,  "  [fsl]  ") 

} 

340  FOR  Y%=2  TO  29 

350  PRINT  TAB (0, Y%)  ;  "  [fsO]  " ; TAB (39, Y 
%)  ;  "  [fs2] 

360  NEXT 

370  PRINT  TAB (0, 30) ; STRING$ (40, " [fs3] " 

)  ? 

380  PRINT  TAB (0,  0)  ;  "HIGH  :  " ; H I GH ; TAB  (  2 
0,0) ; " SCORE  : 0 " 

390  ENDPROC 
400  DEF  PROC_PLAY 
410  TIME=0 
420  REPEAT 

430  PRINT  TAB (PAE, PDE)  ;  "  " 

440  PDE=PD : P AE=P A 

450  PROC_ALIEN (RND (1+N%) -1) 

460  IF  FNHIT  THEN  PROC_DIE 
470  PRINT  TAB (PA, PD ) ; S$ ; 

480  IF  P A<  3  8  THEN  IF  INKEY(-67)  THEN 
S  $  = "  [fsl]  " : P A  =  P A+ 1 

490  IF  P A> 1  THEN  IF  INKEY(-98)  THEN 
S  $  =  "  [f s3]  " : PA  =  PA-1 

500  IF  PD  >  2  THEN  IF  INKEY(-73)  THEN 
S  $  =  "  [f sO]  " : PD  =  PD-1 

510  IF  PD  <  2  9  THEN  IF  INKEY(-105)  THE 
N  S$  =  "  [  f s2 ]  " : PD  =  PD  +  1 

520  PRINT  TAB ( 2 7 , 0 ) ; TIME ; 

530  UNTIL  L%=0 

540  T%=TIME 

550  IF  T%>HIGH  THEN  HIGH=T% : PRINT  TAB ( 


141 


10,  10); "A  NEW  HIGH  SCORE!"; 

560  PRINT  TAB (0, 0) ; "HIGH  : " ; H I GH ; T AB ( 2 
0,0);" SCORE  : " ; T  % ; 

57  0  *  F  X  15  1 

580  ENDPROC 

590  DEF  FNHIT 

600  H%=FALSE 

610  FOR  A%  =  0  TO  N % 

620  IF  ( ( X% ( A% ) =P A )  AND  (Y% (A%)=PD) ) 
THEN  H%  =  TRUE 
630  NEXT 
640  =H% 

650  DEF  PROC_D IE 
660  L%=L%— 1 
670  VDU  7 

680  PRINT  TAB (35+L%, 0)  ;  "  [fs4]  "; 

690  PRINT  TAB (PA, PD ) ; S$ ; 

700  FOR  A%  =  0  TO  N% 

710  VDU31, X%  { A  % )  , Y%  { A  % )  ,  32 

720  X% (A%) =RND (37 ) : Y% (A%) =2+RND (27 ) : 
VDU  3 1 , X%  (A%)  , Y% (A%)  ,  132 
730  NEXT 
740  ENDPROC 

750  DEF  PROC_ALIEN ( A  % ) 

760  VDU  31, X% (A%) , Y% (A%) , 32 :X% (A%) =X% ( 
A%)  -SGN (X% ( A  % )  -PA)  :Y%  ( A  % ) =Y%  ( A  % ) -SGN (Y% ( 
A% ) -PD ) : VDU  31, X% (A%) , Y% (A%) , 132 
770  ENDPROC 
780  DEF  FN_ANOTHER 
790  FOR  A%= 1  TO  N% 

800  PRINT  TAB (X%  ( A  % )  , Y% ( A  % )  )  ;  "  "; 

810  NEXT 

820  PRINT  TAB ( 5 , 1 5 ) ; " Do  you  want  anoth 
e r  go  ? " ; 

830  REPEAT  KEY  $  =  GE  T  $ 

84  0  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

850  PRINT  KEY  $ 

860  =(KEY$="Y") 
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Sea  Sub 


You  are  the  submarine  at  the  bottom  of  the  screen  in  the  game, 
and  your  task  is  to  destroy  all  the  ships  as  they  sail  overhead. 
You  are  fighting  against  the  clock  all  through  the  game,  and 
have  only  one  minute  to  accomplish  your  mission. 

You  move  your  sub  left  and  right  with  the  CAPS  LOCK 
and  CTRL  keys,  and  fire  using  the  RETURN  key.  The  smaller 
the  ship,  the  faster  it  travels,  and  the  points  you  score  are 
related  to  the  size  of  the  ship  and  how  far  away  from  you  it  is. 
You  can  only  fire  one  torpedo  at  a  time. 


10 

REM 

Sea  Sub 

20 

30 

MODE 

5 

40 

PROC 

_in  i  t 

50 

REPEAT 

60 

P  ROC_new_game 

70 

P  ROC_p lay 

80 

UNTIL  NOT  FN_ 

another 

90 

MODE 

7 

100 

END 

110 

12  0 

DEF 

PROC_init 

130 

VDU 

23,0, 10, 32, 

•s 

o 

•s 

o 

•s 

o 

14  0 

DIM 

R% (5)  , B$  (5) 

150 

VDU 

o 

** 

o 

i— i 

CTi 

i— 1 

0 

160 

VDU 

19,2,6,0,0, 

0 

17  0 

VDU 

23,128,8,8, 

CO 

CO 

CO 

CO 

CO 

CO 

180 

VDU 

23,129,0,0, 

16, 16, 60, 127, 254, 25 

190 

VDU 

23, 130, 4,4, 

7,15,31,255,255,127 

200 

VDU 

23,131,128, 

128, 224, 240, 255, 254 

52  , 

248 
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210  VDU  23,132,0,0,0,0,255,255,255,127 
220  VDU  23,133,40,62,126,255,255,255,2 
55,255 

230  VDU  23,134,0,0,0,3,255,254,254,248 
240  VDU  23,135,0,28,28,28,62,127,127,6 

2 

250  ENVELOPE  1,1,0,0,0,0,0,0,10,-10,10 
,1,126,50 

260  FOR  B %  =  0  TO  5 
2  7  0  READ  B $  (B% ) 

280  NEXT 
2  90  H%  =  0 
300  ENDPROC 
310 

320  DEF  PROC_new_game 
330  GCOL  0,129 

340  VDU  24, 0; 700; 1279; 1023; 16 
350  GCOL  0,130 

360  VDU  24, 0; 0; 1279; 700; 16, 26 
370  FOR  P=1  TO  4 
380  PROC_cloud 
390  NEXT 

400  COLOUR  3 : COLOUR  129 

410  PRINT  TAB (0, 0) ; "SCORE  0";TAB(11,0) 
; "HIGH  " ; H% 

420  PRINT  TAB (0, 1) ; "TIME" 

430  FOR  B%=0  TO  5 
440  R% ( B% ) =0 
450  NEXT 
460  S%=0 : TIME=-6000 
470  X%=10 : TY%=FALSE 
480  ENDPROC 
4  90 

500  DEF  PROC_play 

510  REPEAT  COLOUR  OrCOLOUR  130 

520  PRINT  TAB ( X% ,30);"  "; 

530  X%=X%+ ( INKEY ( -65 ) AND  X%>0)-(INKE 

Y  ( —  2 ) AND  X%  < 1 9 ) 

54  0  PRINT  TAB (X%, 30)  ;  "  [fs7]  "; 
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550 

PROC_ships 

5  60 

IF  T Y  %  =  0  AND  INKEY  (  —  74) 

THEN 

PRO 

C_shoot 

57  0 

IF  T Y  %  <  >  0  THEN  PROC.torpedo 

580 

COLOUR  3 : COLOUR  129 

5  90 

•  II  II  • 

PRINT  TAB ( 5, 1 ) ; ABS (TIME 

DIV 

100) 

r  r 

600 

UNTIL  TIME>=0 

610 

*FX  15  1 

620 

*FX  202  32 

630 

ENDPROC 

64  0 

650 

DEF  FN_another 

660 

IF  S%>H%  THEN  H%=S% : PRINT 

TAB (16,0 

)  }  H% 

670  COLOUR  0 : COLOUR  131 

680  IF  S%=H%  THEN  PRINT  TAB(2,3);"A  NE 
W  HIGH  SCORE" 

690  PRINT  TAB (3, 5) ; "ANOTHER  GAME  ?"; 

700  REPEAT  KEY  $  =  GE  T  $ 

710  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

720  =(KEY$="Y") 

730 

740  DEF  PROC_ships 

750  FOR  B%=0  TO  5 

760  R%=  9+ ( B%  *  3 ) 

770  IF  B%=0  THEN  COLOUR  129  ELSE  COL 
OUR  130 

780  IF  R%  ( B% ) =  0  THEN  R% (B%) =RND  (9) DI 
V9 : GOTO  820 

790  PRINT  TAB (R% (B%) , R%) ; " 

800  IF  RND (B%+2 ) <=2  THEN  R%(B%)=R%(B 
%  )  +1 

810  IF  R%  (B%) =21  — LEN  (B$  (B%)  )  THEN 

R% (B%) =0 : PRINT  TAB (20-LEN(B$ (B%) ) ,R%) ;SP 
C  (LEN (B$  (B%)  )  )  ;  ELSE  PRINT  TAB  ( R%  ( B  % )  , R% 
)  ;  B  $  (  B  %  )  ; 

820  NEXT 

830  ENDPROC 
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840 

850  DEF  PROC_shoot 
8  60  TX%=X% : TY%  =  2  9 

87  0  PRINT  TAB ( TX%, TY% )  ;  "  [  f sO ]  "  ; 

880  ENDPROC 
8  90 

900  DEF  PROC_t  orpedo 
910  PRINT  TAB (TX%, TY%)  ;  " 

920  TY%=TY%— 1 

930  IF  T Y  %  MOD  3  =  0  THEN  S%  =  S%+FN_SC ( TX 
%,TY%) : COLOUR3 : COLOUR  129:PRINT  TAB(6,0) 

/  S  % ; " 

94  0  IF  T Y  %  < 1 0  THEN  TY%  =  0 : ENDPROC 
950  SOUND  &11, - (TY%-10) /I . 4, 255-TY%, 6 
960  COLOUR  0 : COLOUR  130 
97  0  PRINT  TAB ( TX%, TY% )  ;  "  [  f sO ]  "  ; 

980  ENDPROC 
990 

1000  DEF  F  N_  SC ( X  % , Y  % ) 

1010  IF  Y% > 2  5  THEN  =0 
1020  B%= ( Y%/3 ) -3 

1030  IF  X% <R%  ( B % )  OR  X%  + 1 >R% ( B % )  +LEN ( B $ 
( B% ) )  THEN  =0 
1040  SOUND  510,-10,6,10 
1050  IF  B%=0  THEN  COLOUR  129 
1060  IF  B%=0  THEN  COLOUR  129  ELSE  COLOU 
R  130 

1070  PRINT  TAB (R%  (B%)  , TY%)  ; SPC (LEN  (B$  ( B 

%)  )  )  ? 

1080  TY%=0 :R% (B%) =0 

1090  = (  4-LEN  (B$  { B  % )  )  )  *  {  2  5 - Y  % ) 

1100 

1110  DEF  PROC_cloud 
1120  GCOL  0,3 

1130  MOVE  RND (1279) , 750+RND (200) 

1140  FOR  C%=1  TO  6 
1150  PLOT  1,RND (50) +C%*50, 0 

1160  PLOT  0, - (C%*60+RND (50) ) , 4 

1170  NEXT 
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1180  PLOT  0 , RND  (200)  ,  0 
1190  PLOT  1,RND(300),0 
1200  ENDPROC 
1210 

12  2  0  DATA  "  [ f s 1 ]  " ,  "  [ f s 2 ]  [fs3]","[fs4]  [f 
s  5  ]  [fs6]  ",  "  [fsl]  ",  "  [fs2]  [fs3]  ",  "  [fs2]  [fs 
3  ]  " 
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V-Wing  Attack 


Guide  your  ship  around  the  screen,  running  over  the  numbers 
which  appear  at  random  for  a  short  time.  If  you'  renot  quick, 
the  number  will  disappear.  You  have  a  limited  time,  and  you 
are  constantly  trying  to  beat  your  previous  score. 

You  control  your  ship  with  the  following  keys: 

X  to  move  right 
Z  to  move  left 
/  to  move  down 
:  to  move  down 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
12  0 
130 
95 

140 
,  192 
150 
2  4 

160  VDU  23,131,3,13 
170  HI GH=  0 
180  ENDPROC 


,  0; 0; 0; 

24,36,36,66,90,165,1 
,176,76,35,35,75,176 
, 165, 90, 66, 36, 36,24, 
50,  196,  196,  50,  13,3 


REM  V-WING  ATTACK 

MODE  4 
PROC_INI T 
REPEAT 

PROC_NEWGAME 

PROC_PLAY 

UNTIL  NOT  FN_AN OTHER 


END 

DEF 

P  RO C_I N I T 

VDU 

23, 

0,10,32 

VDU 

23, 

128,24, 

VDU 

23, 

129,192 

VDU 

23, 

130,195 
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190  DEF  PROC_NEWGAME 
200  PA=6:PD=5:L%=0 
210  PAE=6:PDE=5 
22  0  S$  =  "  [ f si ]  " : S  %  =  0 
230  PROC_B ORDER 

2  4  0  X%  =  RND (37)  : Y%  =  2  +RND  (27)  :VDU31,X%,Y 
%,  65 

250  ENDPROC 

260  DEF  PROC_B ORDER 

27  0  CL  S 

280  PRINT  TAB (0,  1)  ; STRING$  (40,  "  [fsl]  ") 

} 

290  FOR  Y%=2  TO  29 

300  PRINT  TAB (0, Y%) ; " [fsO] " ; TAB (39, Y 
%)  ;  »  [fs2] 

310  NEXT 

320  PRINT  TAB (0,  30)  ; STRING$  (40,  "  [fs3]  " 

)  ? 

330  PRINT  TAB (0, 0) ; "HIGH  :  " ; HIGH ; TAB ( 

2  0,0)  ;  "SCORE  : 0  " 

340  PRINT  TAB (0, 31) ; "TIME  :500"; 

350  ENDPROC 
360  DEF  PROC_PLAY 
370  T IME= - 6000 
380  REPEAT 

390  PRINT  TAB (PAE, PDE)  ;  "  " 

400  PDE=PD : P AE=P A 

410  IF  RND (100) >98  THEN  VDU31,X%,Y%, 

3  2 : X%  =  RND  (31)  : Y%  =  2+RND (7):VDU  31,  X%,  Y%,  6 
5+ (L%  MOD  26) 

420  IF  FNHIT  THEN  P ROC SCORE ( L % ) 

430  PRINT  TAB (PA, PD ) ; S$ ; 

440  IF  P A<  3  8  THEN  IF  INKEY(-67)  THEN 
S  $  = "  [fsl]  " : P A  =  P A+ 1 

450  IF  P A> 1  THEN  IF  INKEY(-98)  THEN 
S$=" [f s3] " : PA=PA-1 

4  60  IF  PD  >  2  THEN  IF  INKEY(-73)  THEN 
S$=" [f sO] " : PD=PD-1 

4  7  0  IF  PD  <  2  9  THEN  IF  INKEY(-105)  THE 
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N  S$=" [f s2] " :PD=PD+1 

4  80  PRINT  TAB ( 6,  31)  ; ABS  (TIME)  ;  " 

490  UNTIL  TIME>=0 

500  PRINT  TAB ( 6, 31 ) ; " 0 [ spc3 ] " ; 

510  IF  S%>HIGH  THEN  HIGH=S% : PRINT  TAB ( 
10,  10);  "A  NEW  HIGH  SCORE!"; 

52  0  *  F  X  15  1 
530  ENDPROC 

540  DEF  FNHIT= ( (X%=PA)  AND  (Y%=PD)) 

550  DEF  PROCSCORE { V  % ) 

560  S%=S%+(V%+1) 

570  SOUND  &11, -10, 100, 3 
580  PRINT  TAB (27, 0)  ; S%;  "  "; 

590  PRINT  TAB (X%, Y%) ; S$; 

600  X%  =  RND (37)  : Y%  =  2  +RND (27)  :L%  =  L%  +  1:VD 
U31, X%, Y%, 65+ (L%  MOD  26) 

610  ENDPROC 

620  DEF  FN_ANOTHER 

630  PRINT  TAB ( X% , Y % )  ;  "  " 

640  PRINT  TAB ( 5, 15 ) ; "Do  you  want  anoth 
e r  go  ? " ; 

650  REPEAT  KEY  $  =  GE  T  $ 

660  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

670  PRINT  KEY  $ 

680  =(KEY$="Y") 
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Woodworm 


Picture  yourself  as  a  woodworm.  If  you  look  like  me,  that  is  not 
hard  to  do.  All  you  have  to  do  is  eat  your  way  across  the  screen. 
For  the  purposes  of  this  game,  you  must  think  of  the  screen  as 
a  large  chunk  of  wood.  The  wood  is  made  up  of  three  types  of 
timber:  hard,  medium  strength  and  soft.  The  three  types  are 
shown  by  different  colours  on  the  screen:  red  for  the  hardest 
wood,  yellow  for  the  medium  grade  and  green  for  the  soft. 

You  must  cross  the  screen  in  the  shortest  time  possible. 
Bear  in  mind  that  eating  through  tough  wood  is  more  time- 
consuming  and  tiring  than  munching  on  the  softer  stuff. 
Woodworm  is  based  on  a  program  by  J.  Bull.  Full  instructions 
are  within  the  program. 


10 

REM  Woodworm 

20 

30 

MODE  7 

40 

PROC_in i t 

50 

MODE  5 

60 

REPEAT 

70 

PROC_new_game 

80 

PROC_play 

90 

UNTIL  NOT  FN_anot her 

100 

MODE  7 

110 

END 

12  0 

130 

DEF  PROC_init 

140 

VDU  23,128,6,31,32,24,4,4, 

136,112 

150 

VDU  23, 0, 10, 32, 0; 0; 0; 

160 

PRINT  TAB (13, 1)  ;CHR$  (141)  ; 

" [ f si ] WO 

OD WORM 

[" 

17  0 

PRINT  TAB (13, 2)  ;CHR$  (141)  ; 

" [ f si ] WO 

OD WORM 

[" 
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180  PRINT  1  "  [  f s 6 ]  In  this  game  you  (a  wo 
odworm) ,  must  eat"; 

190  PRINT  " [fs6] your  way  from  the  left 
to  the  right  of"; 

200  PRINT  "  [fs6] the  screen  (wood).  The 
[fsl] red  wood[fs6] is  very"; 

210  PRINT  " [f s6] hard,  the [fs3]yellow  w 
ood [f s6] is  medium  and  the"; 

220  PRINT  "  [fs2] green  wood  [f s6]  is  soft 
.  The  harder  the  wood"; 

230  PRINT  "  [fs6] the  more  tired  you  bee 
ome  and  therefore"; 

240  PRINT  " [fs6] the  lower  your  score  w 
ill  be . The  number"; 

250  PRINT  "  [fs6]  of  moves  you  make  will 
also  change  your"; 

2  60  PRINT  "  [fs6]  score . Obviously  a  smal 
1  number  of  moves"; 

270  PRINT  " [fs6] will  give  a  high  score 

ii 

280  PRINT '"[ fs2 ] To  move 

290  PRINT [fs3] [spcl2] RETURN  -  right" 

300  PRINT' n[fs3][spc9]A  -  up [spc5] Z  - 
down  " 

310  PRINT ' " [ f s 2 ] You  can't  move  left  or 
where  you  have" 

320  PRINT  "[ fs2 ] already  been." 

330  PRINT  " [fsl] [spc6]PRESS [fs8] SPACE 
BAR [ f  s  9 ] TO  START"; 

340  *FX  15  1 

350  REPEAT  UNTIL  GET=32 

360  ENDPROC 

37  0 

380  DEF  PROC_new_game 

390  VDU  23,0,10,32,0;0;0; 

400  VDU  19,3,2,0,0,0 

410  F%=0 : T%=0 

42  0  PRINT  TAB (0, 0)  ; SPC  (20)  ; 

430  FOR  X%=0  TO  19 
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4  4  0  FOR  Y  %  =  0  TO  30 
4  50  COLOUR  12  8  +RND ( 3 ) 

460  VDU  31,X%,Y%,32 

470  NEXT 

4  80  NEXT 

490  X%=0 : Y%=16 : C%=X% : D%=Y% 

500  ENDPROC 
510 

520  DEF  PROC_play 
530  REPEAT 

540  COLOUR  1 : COLOUR  128 
550  PRINT  TAB (X%, Y%)  ;  "  [fsO] 

5  60  PRINT  TAB ( 0, 0 );  "Fatigue  " ; F  % ; TAB 
(11, 0) ; "Moves  T%; 

570  *FX  15  1 

580  REPEAT  K%  =  GE  T 

590  IF  K%>  90  THEN  K%=K%-32 

600  UNTIL  K%=65  OR  K%=90  OR  K%=13 

610  IF  K%=65  AND  Y%<30  THEN  Y%=Y%-1 

620  IF  K%  =  9  0  AND  Y%>1  THEN  Y%  =  Y%  +  1 

630  IF  K%=13  THEN  X%=X%+1 
640  COL%=POINT (64*X%, 1023- (32*Y%) ) 
650  IF  COL%=3  THEN  F%=F%+1 : SOUND  &11 
, -10, 53,5 

660  IF  COL%=2  THEN  F%=F%+5 : SOUND  &11 
, -10, 101,5 

670  IF  COL%=l  THEN  F % =F % + 1 0 : S OUND  &1 
1, -10, 149, 5 

680  IF  COL%=0  THEN  X%=C%:Y%=D% 

690  PRINT  TAB ( C% , D% )  ;  " 

700  C%  =  X% : D%  =  Y  % 

710  T  %  =  T%  + 1 

72  0  UNTIL  X%  =  1 9 
730  ENDPROC 
740 

750  DEF  FN_anot her 
7  60  PRINT  TAB (19, Y%)  ;  "  [fsO] 

770  VDU  28,5,20,15,10,12 
780  PRINT'"  GAME  OVER" 
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790  PRINT' "You  scored" 

800  PRINT ' 1500-T%- (3*F%) 

810  PRINT ' "Another  go?"; 

820  REPEAT  K$=GET$ 

830  UNTIL  K $  =  " Y "  OR  K$  =  "N" 
840  VDU  26 
850  = ( K  %  = " Y " ) 
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Rat  Catch 


In  this  game,  based  on  one  written  by  Graham  Curling,  you 
have  to  guide  your  rats  using  the  '  Z&nd  '  Xkeys.  The  rats  hold 
a  bucket,  and  you  have  to  catch  falling  bricks  in  this  bucket  to 
build  up  a  wall. 

The  points  you  score  increase  as  the  wall  gets  higher  and 
the  bricks  change  colour.  As  you'  llsee  when  the  game  is  in 
action,  the  user-defined  graphics  are  particularly  effective. 

Six  catches  in  a  row  will  gain  you  a  bonus  which  is  added  to 
your  score  at  the  end  of  the  game.  Six  misses  in  a  row  costs  you 
a  life.  You  have  five  lives  at  the  start  of  the  game. 

There  are  300  bricks  dropped  during  each  run  of  the  game. 
The  game  ends  either  when  you  lose  your  lives,  or  all  300 
bricks  have  been  dropped.  The  brick  tally  is  clocked  up 
continuously  on  the  screen  and  there  is  a  high-score  facility,  so 
you  can  try  and  beat  your  best  score  from  earlier  rounds. 


10  REM  RAT  CATCH 
20 

30  PROC_INI T 
40  REPEAT 
50  MODE  7 
60  PROC_INSTR 
70  MODE  1 
80  PROC_PLAY 
90  PROC_UPDATE 
100  UNTIL  NOT  FN_AN OTHER 
110  MODE  7 

120  PRINT f si ] BYE [ fs2 ] and  thanks  fo 
r  playing  RAT  CATCH"' 

130  END 
14  0 

150  DEF  PROC_INI T 
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160  VDU  23,128,0,127,127,96,96,127,127 

,  0 

170  VDU  23,129,0,254,254,6,6,254,254,0 

180  VDU  23,130,0,126,126,102,102,126,1 
26,0 

190  VDU  23,131,195,255,66,106,125,34,2 
13,141 

200  VDU  23,132,129,129,195,255,36,36,2 
31,231 

210  VDU  23,133,195,255,66,86,126,63,17 
1,177 

220  VDU  23,134,0,0,255,66,66,66,126,0 
230  VDU  23,135,60,118,227,201,221,201, 
201, 201 

240  ENVELOPE  1,2,-1,-1,-1,255,255,255, 

120, 0, 0, -120, 120, 120 

250  ENVELOPE  2 , 3 , 0 , 0 , 0 , 1 , 1 , 1 , 1 2 0 , - 5 , - 5 
, -10, 120,90 

260  ENVELOPE  3 , 2 , 0 , 0 , 0 , 1 , 1 , 1 , 8 0 , - 1 , 0 , - 
1,80,55 

27  0  n  $  =  " " : h  =  0 

280  i  =  0 

290  ENDPROC 

300  DEF  PROC_INSTR 

310  VDU  23, 0, 10, 32, 0; 0; 0; 

320  PRINT' TAB (10) ;CHR$ (141) ; " [fsl]R[fs 
2 ] A [ f s3] T  [fs4]C[fs2]A[fs3]T[fs4]C[fs6]H 
[  f  s  7  ]  " 

330  PRINT  TAB ( 10 ) ; CHR$ ( 141 ) ; " [ f si ] R [ f s 
2 ] A [ f s3] T  [fs4]C[fs2]A[fs3]T[fs4]C[fs6]H 
[  f  s  7  ]  " 

340  PRINT  TAB ( 10 );"[ f si ] ============== 

==== [f s7 ] " ' ' 

350  PRINT  "[fs3]  Guide  your  two  rats  1 
eft  and  right [fs7]" 

360  PRINT  " [fs3]  using  the  Z  and  X  or 
<  and  >  keys . [fs7] " 

370  PRINT' " [fs3]  Catch  the  bricks  in  t 
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he  bucket  and [fs7]  ” 

380  PRINT  "  [  f  s  3  ]  build  up  the  wall." 

390  PRINT  1  "  [fs3]  The  higher  the  wall  t 
he  higher  the [ f s7 ] " 

400  PRINT  "  [  f  s  3 ]  points  scored  for  eac 
h  brick. [fs7] " 

410  PRINT  "  [fs3]  BONUS  for  6  catches 
in  a  row  but  [fs7]  " 

42  0  PRINT  "  [fs3]  BEWARE  ,  6  misses  me 

ans  that  you[fs7] " 

430  PRINT  "  [  f  s  3 ]  lose  a  life. You  star 
t  off  with  5  [ f  s  7 ]  " 

4  4  0  PRINT  1  "  [  f s 3 ]  You  get  an  EXTRA  life 
if  you  reach [fs7] " 

450  PRINT  "  [  f  s  3 ]  2000  points,  or  if  yo 

u  catch  6 [fsl] red[fs7] " 

460  PRINT  "  [  f  s  3 ]  or  6  [f s2] green  [f s3]br 


icks 

in  a  row .  [ f  s 7  ]  " 

470 

*FX  15  1 

480 

PROC_ditty 1 

490 

PRINT ' TAB (5);  "[fsl]  [ f  s  8 ] P RE  S  S  ANY 

KEY  TO  PLAY [f s9]  [f s7 ]  "  ; 

500 

wait=GET 

510 

*FX  15  0 

520 

ENDPROC 

530 

DEF  PROC_PLAY 

540 

PROC_BUILD 

550 

q=0 : d=0 : ca=0 : m=0 :ll=26:u=0: 

e  =  l : z  =  3 

:  s  =  0  : 

y%  =  l 8 : x  %  =  3 : a  =  19 :b  =  3 

560 

FOR  k=l  TO  300 

57  0 

c  =  INT ( 2  3  *RND (1)  ) +4 

580 

FOR  p  =  3  TO  y % 

590 

br=  3  0  0 -k 

600 

II 

COLOUR  z : PRINT  TAB(c,p) 

;  "  [  f  s  2  ] 

610 

X  %  =  x  % : Y%  =  y% 

620 

IF  I NKE Y (-98)  AND  x%>3 

THEN  x  % 

=  x  %  —  1 

630 

IF  INKEY (-103)  AND  x%>3 

THEN  x 
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%=x%— 1 

64  0  IF  INKEY  (-67)  AND  x%<26  THEN  x 

%  =  x  %  + 1 

650  IF  I NKE Y  (  —  104)  AND  x%<26  THEN 

x  %  =  x  %  + 1 

660  IF  X  %  <  >  x  %  OR  Y%Oy%  THEN  PRINT 

TAB (X%,Y%) ; " [spc3] TAB (X%,Y%-1) ; " [spc3 

]  " 

67  0  COLOUR  3 : PRINT  TAB ( x% , y % )  ;  "  [  f s 

4]  [  f  s  6  ]  [  f  s  4  ]  " 


680 

fl 

PRINT  TAB (x%, y%  — 1)  ;  "  [fs3]  [fs5 

690 

PROC_delay ( 10 ) 

7  00 

PRINT  TAB (c, p)  ;  "  " 

710 

NEXT  p 

72  0 

IF  c  =  x%  OR  c  =  x%  +  2  THEN  SOUND  1,1 

2  00,6 

730 

IF  b  =  2  9  THEN  PROC_INCWALL 

740 

IF  y%=15  THEN  z=3:e=2 

750 

IF  y%=13  THEn  z=3:e=3 

7  60 

IF  y%=ll  THEN  z=l:e=4 

770 

IF  y%=10  THEN  z=2:e=5 

780 

IF  c=x%+l  THEN  PROC_INCSC 

7  90 

IF  c  <  >  x  %  + 1  THEN  PROC_MISS 

800 

COLOUR  7 : PRINT  TAB ( 8 , 0 ) ; s ; 

TAB  (  2  7 

0 )  ;  br 

.  n  n 

i 

810 

PRINT  TAB (10, 20) ; ca; TAB (22 

,20)  ;  m 

820 

NEXT  k 

830 

ENDPROC 

840 

DEF  PROC_UPDATE 

850 

COLOUR  2 

860 

VDU  19,2,12,0,0,0 

87  0 

PRINT  TAB (11, 3) ; "GAME  OVER" 

880 

s  =  s+u 

890 

COLOUR  1 

900 

IF  s<  =  h  THEN  PRINTTAB ( 1,  4  )  ;  " 

UNLUCK 

Y  YOU  MISSED  THE  HI ' SCORE ENDPROC 
910  h=s 

920  PRINT  TAB ( 1, 4 ) ; "YOU  OT  THE  HIGH  SC 
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ORE  !  " 

930  COLOUR  1 
94  0  *  F  X  15  1 

950  INPUT  TAB ( 0, 23 );" Input  your  name  p 
lease  :"n$ 

960  ENDPROC 
970  DEF  FN_ANOTHER 
980  VDU  28,0,31,39,23,12,26 
990  PRINT  TAB (0, 26) ; "Do  you  wish  to  pi 
ay  agin  (Y/N  : 

1000  *FX  15  1 

1010  REPEAT  KEY  $  =  GE  T  $ 

1020  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y $  = " N "  OR  k e y $  =  " n " 

1030  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  =TRUE 

ELSE  =FALSE 

1040  DEF  PROC_ditty 1 

1050  RESTORE  1170 

1060  LOCAL  k, j, 1 

1070  FOR  k=l  TO  3:FOR  j=l  TO  4 : READ  1:S 
OUND  1, -10, 1, 2 :NEXT  j : PROC_delay ( 6 ) : NEXT 
k : PROC_delay  (20) 

1080  REPEAT  UNTIL  ADVAL(-6)>14 
1090  FOR  k=l  TO  2:FOR  j=l  TO  4 : READ  1:S 
OUND  1, -10, 1, 2 :NEXT  j : PROC_delay ( 6 ) : NEXT 
k : PROC_delay  (  2 ) 

1100  REPEAT  UNTIL  ADVAL(-6)>14 
1110  SOUND  1 , -10, 69, 3 : PROC_delay (2 ) 

1120  SOUND  1 , -10,  69, 3 : PROC_delay  (2 ) 

1130  SOUND  1 , -10, 61, 3 : PROC_delay (2 ) 

1140  SOUND  1, -10, 61, 3 :PROC_delay (6) 

1150  SOUND  1,-10,53,4 
1160  ENDPROC 

1170  DATA  69,73,81,65,69,73,81,65,69,73 
,81,93,69,73,81,81,65,69,73,81 
1180  DEF  PROC_BUILD 
1190  VDU  23, 0, 10, 32, 0; 0; 0; 

1200  VDU  20,19,2,2,0,0,0,19,3,3,0,0,0 
1210  GCOL  0,2 
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1220  MOVE  0 , 959: DRAW  1 0 2 4 , 9 5 9 : DRAW  1024 
,384: DRAW  0,384: DRAW  0,959 
1230  PRINT  TAB ( 0, 0 )  ;  "  [  f s3 ]  " ; TAB ( 31 , 0 )  ; " 
[  f  s  5  ]  "  ; 

12  4  0  PRINT  TAB ( 0, 1 )  ;  "  [ f s4 ]  " ; TAB ( 31 , 1 )  ;  " 
[  f  s  4  ]  "  ; 

1250  COLOUR  1 : FOR  K=1  TO  29  STEP  2:PRIN 
T  TAB (K, 1)  ;  "  [fsO]  [fsl]  " :NEXT 
1260  COLOUR  131: COLOUR  0:PRINT  TAB(2,0) 

;  "SCORE :  " ; TAB ( 1 4 , 0 )  ;  " BRICKS  LEFT:"; TAB  ( 1 
,  21 )  ;  "BONUS ; TAB (14, 21);  "LIVES  LOST:";T 
AB  ( 1 , 2  0 )  ;  "CATCHES : " ; TAB (14,20)  ;  "MISSES : " 
1270  COLOUR  128: COLOUR  1 
1280  VDU  28,0,31,39,22,12,26 
1290  IF  h<>0  THEN  PRINT  T AB ( 0 , 2 6 ) ; " H i gh 
score  ";h'"Set  by  ";n$ 

1300  PRINT  TAB ( 4 , 10 ) ; "PRESS  ANY  KEY  TO 
CONTINUE " ; 

1310  *FX  15 

1320  wait=GET 

1330  *FX  15  1 

1340  COLOUR  128: COLOUR  3 

1350  PRINT  TAB (4,  10)  ; SPC (25)  ; 

1360  ENDPROC 

1370  DEF  PROC_MI S  S 

1380  ca=0:m=m+l 

1390  IF  m=  6  THEN  PROC_DIE 

1400  REM  SOUND 

1410  ENDPROC 

1420  DEF  PROC_D IE 

1430  SOUND  3,1,200,10 

1  4  4  0  m=0 : PRINT  TAB ( 11, 21 )  ; "  [  f s7 ]  " : 11  =  11 
+  1 

1450  IF  11-26=5  THEN  k=300 

1460  ENDPROC 

1470  DEF  PROC_INCSC 

1480  m= 0 : ca=ca+ 1 : s =s +( 1 9 -y% )* e : COLOUR  z 
: PRINT  TAB (b,a) ; " [fsO] [fsl]":b=b+2 
14  90  IF  ca  =  6  THEN  PROC_BONUS 
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1500  IF  s  >  =  2  0  0  0  AND  d=0  THEN  PROC_RESER 
ECT 

1510  ENDPROC 

1520  DEF  PROC_BONUS 

1530  bo= ( 1 9 -y % )  * 5 0 : u=u+bo : ca  =  0 

1540  VDU  19,2,12,0,0,0 

1550  COLOUR  2 : PRINT  TAB ( 1 , 3 ) ; " BONU S " 
1560  COLOUR  3 : PRINT  TAB ( 8 , 2 1 ) ; u 
1570  PROC_dit t y 2 
1580  PRINT  TAB (1, 3) ; SPC (5) 


15  90 

VDU  19,2,2,0,0,0 

1600 

IF  (z  =  l  OR  z  =  2 )  AND 

q=  0  THEN  PROC_ 

RESERECT 

1610 

ENDPROC 

162  0 

DEF  PROC_dit t y 2 

1630 

LOCAL  note , p 

1640 

RESTORE  1710 

1650 

FOR  not e=l  TO  9 

1660 

READ  p 

1670 

SOUND  &  1 0 2 , 3, p, 3  : 

SOUND 

&  1 0  3 , 2, p. 

1680 

NEXT 

1690 

REPEAT  UNTIL  ADVAL ( 

-7  )  >14 

1700 

ENDPROC 

1710 

DATA  77,85, 93, 85, 77 

,85,93 

,85,77 

1720 

DEF  PROC_INCWALL 

1730 

b=3 : a=a-l : PRINT  TAB 

(  x%  ,  y  % 

)  ?  "  [ sp  c  4 ] 

"  :  y%  = 

y%-l : ENDPROC 

174  0 

DEF  PROC_RES ERECT 

1750 

SOUND  2,2, 200, 10 

17  60 

PRINT  TAB (11-1, 21) ; 

ii  ii  . 

r 

1770 

VDU  19,2,9,0,0,0 

1780  COLOUR  2 : PRINT  TAB ( 1 1 , 3 ) ; " EXTRA  LI 
F  E  "  :  q=  1 

1790  PROC_ditty 3 

1800  PRINT  TAB ( 11 , 3 )  ; SPC  ( 10 ) 

1810  VDU  19,2,2,0,0,0 
1820  11=11-1 : d=l : ENDPROC 
1830  DEF  PROC_ditty 3 
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1840  RESTORE  1920 

1850  LOCAL  n,note,p,d 

1860  READ  n 

1870  FOR  not e=l  TO  n 

1880  READ  p , d 

1890  SOUND  2,-10,p,d 

1900  NEXT 

1910  REPEAT  UNTIL  ADVAL(-7)=15 
1920  DATA  7,81,5,109,8,101,2,97,2,89,3, 
129, 6, 109, 8 

1930  DEF  PROC_delay (t) 

1940  TIME=0 

1950  REPEAT  UNTIL  T IME  >  =  t 
1960  ENDPROC 
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Airshow 


When  you'  retired  of  betting  on  the  dogs  or  the  horses,  you  can 
invest  your  hard-earned  cash  on  the  aeroplane  of  your  choice, 
with  this  brief  program. 

Just  follow  the  clear  prompts,  and  very  shortly  a  race  will  be 
underway  between  six  aeroplanes. 


10  REM  Airshow 

20 

30  MODE  4 
40  PROC_INI T 
50  bet =FN_BET 
60  IF  bet=0  THEN  140 
70  REPEAT 
80  REPEAT 
90  PROC_MOVE 

100  UNTIL  win 

110  P RO C_ S HO W_W INNINGS 

120  IF  MONEYOO  THEN  bet  =FN_BET 

130  UNTIL  bet=0  OR  MONEY<=0 

140  IF  MONE  Y  =  0  THEN  PRINT'  "You  are  out 
of  money!"  ELSE  PRINT' "You  go  home  with 
' " ; MONEY 
150  END 
160 

170  DEF  PROC_INI T 
180  DIM  X ( 6 ) 

190  VDU  23, 0, 10, 32, 0; 0; 0; 

200  VDU  23,128,16,24,156,255,156,24,16 

,  0 

210  MONEY  =  l 0  0 

220  PRINT  TAB ( 16, 1 ) ; "AIR  SHOW" 

230  VDU  28,0,31,39,2 
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240  ENDPROC 
250  DEF  FN_BET 

2  60  PRINT  1  1 "Which  plane  to  bet  on  1,2, 
3,4,5  or  6  ?"; 

27  0  REPEAT  P  $  =  GET$ 

280  UNTIL  P$>"0"  AND  P$<"7" 

2  90  P  = VAL { P  $ )  : CLS 

300  PRINT "Plane  ";P'"You  have  " ; M  0  N  E  Y 
310  REPEAT 
320  REPEAT 

330  INPUT  TAB (0, 8) ; "How  much  to  be 

t  (0  to  quit)  " , B  E  T  $ 

34  0  UNTIL  B  E  T  $  <  > "  " 

350  BET=VAL (BET$) 

360  UNTIL  BET>=0  AND  BET<=MONEY 
37  0  IF  BE  T=  0  THEN  =0 

380  CLS :PRINT" Watch  out  for  plane  ";P; 
".You  bet  " ; BET; "  on  it" 

390  FOR  P%  =  1  TO  6 : X ( P % ) = 1 

400  PRINT  TAB(0,  10  +  2*P%)  ;P%;  :  NEXT 

410  =BE  T 

420  DEF  PROC_MOVE 
430  win=FALSE 
440  FOR  P%=1  TO  6 

450  PRINT  TAB (X { P  % )  , 10+2*P%)  ;  " 

460  X { P  % ) =X { P  % ) +RND  (1) 

470  PRINT  TAB (X { P  % )  , 10+2*P%)  ;  "  [fsO]  " 

} 

480  IF  X ( P  % )  >38  THEN  win  =  TRUE 
490  NEXT 
500  ENDPROC 

510  DEF  PROC_SHOW_W INNINGS 
520  W%=0 

530  FOR  P%=1  TO  6 

54  0  IF  X ( P  % )  >  =  3  8  THEN  W%=W%  +  1 
550  NEXT 

560  PRINT  TAB (0, 2)  ; W% ; "  plane";  :IF  W%< 
>1  THE  RINT" ' s  "  ; 

570  PRINT"  won  and  yours  was 
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580  W%=FALSE 
590  FOR  P%=1  TO  6 

600  IF  X ( P  % )  >  =  3  8  AND  P=P%  THEN  W%  =  TR 
UE 

610  NEXT 

620  IF  W %  THEN  PRINT " happi ly "  ELSE  PRI 
NT" not  " 

630  PRINT "one  of  them. You  " ; 

64  0  IF  W%  THEN  PRINT  "win  '";bet  ELSE 

PR 

I NT" loose  " ; bet : bet =-bet 
650  MONEY=MONEY+bet 
660  ENDPROC 
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Letter  Chaser 


The  letters  of  the  alphabet  appear  scattered  at  random  across 
the  screen.  You  have  to  run  over  them  in  order.  You  are  a  little 
ball,  and  you  never  stop  moving,  so  a  great  deal  of  skill  is 
required  to  make  sure  you  don'  thit  the  letters  in  the  wrong 
order. 

You  control  your  ball  with  the  following  keys: 

Z  to  move  left 
X  to  move  right 
:  to  move  up 
/  to  move  down 

Letter  Chaser  was  written  by  Neal  Cavalier-Smith.  As  the 
program  has  a  running  high-score  feature,  you  need  to  enter 
H%=0  then  RETURN  before  running  the  program. 


10 

REM  Letter  Chaser 

20 

REM  By  Neal  C a v a 1 i e r - Smi t h 

30 

40 

REM  Type  ' H%=0 ' 

before  use 

50 

60 

MODE2 

7  0 

REPEAT 

80 

PROCsetup 

90 

PROCplayg 

100 

PROCwin 

110 

UNTIL  FALSE 

12  0 

DEFPROCsetup 

130 

COLOUR  132: COLOUR  3 

140 

CL  S 

150 

PRINT ' ' ' "LETTER 

CHASER" 

160 

PRINT ' ' "LEVEL 

1-9" 
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170  PRINT  "(hard  -  easy) 

180  REPEAT  K$=GET$ 

190  UNTIL  K  $  > " 0 "  AND  K$<  =  "9" 

200  L=2*VAL(K$) 

210  PRINT  K  $ 

220  COLOUR  128 

230  VDU23, 130, 60, 126, -1,-1, -1,-1, 126, 6 

240  VDU23, 0, 10, 32, 0; 0; 0; 

250  DIMX (20, 30) 

260  FORX%  =  0  T02  0 
270  F  ORY  %  =  0  TO  3  0 

2  80  X (X%, Y  % ) =0 

290  NEXT 

300  NEXT 
310  CL  S 

320  FOR  T%=  6 5  TO  90 
330  X=RND (19) 

340  Y  =  RND  (30) 

350  IFX  (X,  Y)  O0THEN  330 
360  X (X, Y) =T% 

370  COLOUR  RND ( 7 ) 

380  PRINTTAB (X, Y) ; CHR$T% 

390  NEXT 
400  X1%=0 
410  Y 1  %  =  0 
420  X%=0 
430  Y%  =  0 
440  S%=0 
450  A$="Neal" 

460  ENDPROC 

470  DEFPROCplayg 

480  X%=0 : Y%=0 

490  FORL%=65TO90 

500  IFS%=2 6THENPROChit 

510  IF  INKEY  (-98 )  THENX1%  =  -1 : Y1%  =  0 

52  0  IF  INKEY  (-67 )  THENX1%  =  01 : Y1%  =  0 

530  IF  INKEY (-73) THENY1%=-1 :X1%=0 

540  IF  INKEY (-105) THENY1%=1 :X1%=0 


550  PRINTTAB (X%, Y%) ; "  " 

560  X%=X%+X1% 

570  Y%=Y%+Y1% 

580  IFX%<00THENX1%=1 : GOTO560 
590  IFY%>30THENY1%=-1 : GOTO560 

600  IFX%>19THENX1%=— 1 : GOTO560 
610  IFY%<00THENY1%=1 : GOTO560 
620  PRINTTAB (X%, Y%) ; CHR$130 
630  T=TIME 
640  REPEAT 
650  UNTILTIME-T>L 

660  IF  X (X%, Y%) =L%  THEN  S%=S%+1:X(X% 
, Y%) =0 : VDU7 : NEXT 

670  IF  X (X%, Y%) =0THEN510ELSEPROChit 

680  GOT  0  5  0  0 

690  ENDPROC 

700  DEFPROChit 

710  CL  S 

720  *FX  15  1 

730  PRINTTAB (0, 10) ; "YOU  GOT  ";S%;"  LET 
T  E  R  S "  '  "IN  THE  RIGHT  ORDER." 

740  IF  S%>H%  THEN  H%=S%:PRINT  "INPUT  Y 
OUR  NAME  INPUT  A$ 

750  PRINTTAB (0, 15) ; "BEST  SO  FAR  " ; H% ' " 
BY  ";A$ 

760  PRINTTAB (0, 19) ; "SPACE  FOR  ANOTHER 
GO" 

770  REPEAT 

780  UNTIL  INKEY (-99) 

790  RUN 
800  ENDPROC 
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Board  Games 


Nine  by  Eight 


This  game,  based  on  one  written  by  Chris  Callender,  is 
somehwat  like  Draughts,  except  that  the  board  measures  nine 
squares  by  eight,  rather  than  eight  by  eight.  Captures  are  made 
like  pawn  captures  in  Chess.  That  is,  you  move  diagonally  and 
land  on  top  of  an  opponent's  piece  in  order  to  capture  it.  All 
moves  are  on  the  white  squares,  diagonally  in  any  direction. 
There  are  no  multiple  jumps. 

You  have  the  first  move,  and  the  winner  is  the  first  player 
to  capture  six  of  the  opponent's  pieces.  You're  playing  from  the 
bottom  of  the  screen  and  the  BBC  Micro  is  playing  down  from 
the  top. 

You  move  by  entering  the  number  down  the  side  relating  to 
the  square  you're  moving  from,  and  then  the  number  across  the 
bottom  of  the  relevant  square.  Then  you  follow  the  same 
process  for  the  square  you're  moving  to.  Only  legal  moves  are 
accepted. 


10  REM  NINE  x  EIGHT 
20 

30  MODE  1 
40  PROC_in i t 
50  REPEAT 

60  PROC_new_game 
70  REPEAT 
80  PROC.board 

90  PROC_y our_go 

100  PROC.board 

110  PROC_my_go 

120  UNTIL  Myscore=6  OR  Yourscore=6 

130  PROC_board 

140  UNTIL  NOT  FN_another 
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150 

MODE 

7 

160 

END 

17  0 

180 

DEF 

PROC_init 

190 

VDU 

23, 0, 10, 32, 0; 0; 0; 

200 

VDU 

23, 128, -1,-1, -1,-1, -1,-1, -1,-1 

210 

VDU 

23, 129, 0, 0, 0, 1 , 3, 7, &F, &  IE 

22  0 

VDU 

23, 130, 0,0, -1,-1, -1,-1, 0,0 

230 

VDU 

23, 131, 0, 0, 0, &  8  0 , &C0, &E0, &F0,  & 

7  8 

240 

VDU 

23, 132, &3C, &3C, &3C, &3C, &3C, &3C 

,  &  3C, 

&  3C 

250 

VDU 

23,  133,  0, &  1 8 , &  3  C , &7E, &7E, &  3  C , & 

18,0 

260 

VDU 

23,  134, &  IE , &  F , 7, 3, 1, 0, 0, 0 

270 

VDU 

23,  135, &  7  8 , &  F  0 , &E0, &C0, &80, 0, 0 

,  0 

280 

DIM 

S$ (10, 11) 

2  90 

VDU 

19,3,6,0,0,0 

300 

ENDPROC 

310 

320 

DEF 

P  ROC_new_game 

330 

RESTORE 

340 

FOR 

Y%= 1  TO  10 

350 

READ  R$ 

360 

FOR  X%=1  TO  11 

370 

S$ (Y%, X%) =MID$ (R$, X%, 1) 

380 

NEXT  X% 

390 

NEXT  Y  % 

400 

Myscore=0 :Yourscore=0 

410 

CL  S 

42  0 

ENDPROC 

430 

440 

DEF 

PROC_board 

450 

LOCAL  X% , Y% 

4  60 

FOR 

Y%  =  0  TO  9 

47  0 

FOR  X%=0  TO  10 

480 

PRINT  TAB (X%*3, Y%*3) ; 

4  90 

PROC_square (S$(Y%  +  1,X%  +  1)  ) 
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500  NEXT  X% 

510  NEXT  Y  % 

520  COLOUR  2 : COLOUR  129 
530  PRINT  TAB (34,1) ; " 9  x  8"; 

540  COLOUR  1 : COLOUR  128 

550  PRINT  TAB ( 34 , 2 7 ) ; "Me  ";Myscore 

560  COLOUR  2 

570  PRINT  TAB ( 34 , 2 9 ) ; " You  ";Yourscore 
580  ENDPROC 
5  90 

600  DEF  PROC_square (C$ ) 

610  IF  C$<"J"  PROC_side { C  $ ) 

62  0  IF  C  $  =  " x "  COLOUR  l:PROC_piece 
630  IF  C $  =  " o "  COLOUR  2:PROC_piece 
64  0  IF  C  $  =  "  [ f  s  0 ]  "  COLOUR  3:PROC_block 
650  ENDPROC 
660 

670  DEF  PROC_side { N  $ ) 

680  COLOUR  2 : COLOUR  129 
690  IF  N  $  = "  "  THEN  COLOUR  128 

700  PRINT  " [ spc3 ] " ; TAB (POS-3 , VPOS+1 ) ; " 
" ; N$ ;  "  " ; TAB (POS-3, VPOS  +  1)  ;  "  [spc3] 

710  ENDPROC 
720 

730  DEF  PROC_block 

740  IF  X%=0  OR  X%=10  THEN  COLOUR  1 : COL 
OUR  130 

750  PRINT" [fs0][fs0][fs0]"; TAB (POS-3, V 
POS  +  1)  [fsO]  [fsO]  [  f  s  0 ]  " ; TAB (POS-3, VP OS  + 
1 )  ; "  [ f  s  0 ]  [fsO]  [  f  s  0 ]  "  ; 

760  ENDPROC 
77  0 

780  DEF  PROC_piece 
790  COLOUR  128 

800  PRINT" [fsl][fs2][fs3]"; TAB (POS-3 , V 
POS  +  1)  ;"[fs4]  [ f  s  5 ]  [  f  s  4 ]  " ; TAB (POS-3, VP OS  + 
1 )  ;  "  [  f  s  6  ]  [  f  s  2  ]  [  f  s  7  ]  " 

810  ENDPROC 
820 
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830  DEF  PROC_your_go 
840  COLOUR  2 

850  VDU  28,33,26,39,3,12,26 
860  PRINT  TAB (33, 6) ; "Your  go" 

870  PRINT  TAB ( 34 , 8 ) ; "FROM? " 

880  REPEAT 

890  COLOUR  1 

900  PRINT  TAB (35, 10) ; 

910  f r om$ =FN_move 

920  X%  =  ASC (from$)  -63 : Y%  =  VAL (RIGHT  $  (  f 

r  om$ , 1 )  ) + 1 

930  IF  S$ ( Y%, X%) ="o"  THEN  980 
940  VDU  7 

950  PRINT  TAB (33, 10) ; "ILLEGAL"; 

960  PROC_delay (200) 

97  0  PRINT  TAB ( 33 , 10 )  ;  "  [  spc7 ]  "  ; 

980  UNTIL  S$ (Y%, X%) ="o" 

990  COLOUR  2 

1000  PRINT  TAB (35, 12) ; "TO?" 

1010  REPEAT 

1020  COLOUR  1 

1030  PRINT  TAB (35, 14) ; 

1040  to$=FN_move 

1050  X1%=ASC (to$)  -63 : Y1%  =  VAL ( RI GHT $  (t 

o$, 1) ) +1 

1060  IF  S$  (Yl%,  Xl%) <>"o"  AND  ABS(X%-X 
1%)=1  AND  ABS (Y%-Y1%) =1  THEN  1110 
1070  VDU  7 

1080  PRINT  TAB (33, 14) ; "ILLEGAL"; 

1090  PROC_delay (200) 

1100  PRINT  TAB ( 33 , 14 )  ;  "  [  spc7 ]  "  ; 

1110  UNTIL  S$ (Yl%, Xl%) <>"o"  AND  ABS(X 
%-Xl%)=l  AND  ABS ( Y%-Y1% ) =1 
1120  IF  S$ (Yl%, Xl%) ="x"  THEN  Yourscore= 
Yourscore+1 

1130  S$(Y%,X%)="  " : S$ (Yl%, Xl%) ="o" 

1140  SOUND  2, -10, 101, 5 : SOUND  2,-10,84,5 
1150  ENDPROC 
1160 
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1170  DEF  PROC_my_go 

1180  VDU  28,33,26,39,3,12,26 

1190  COLOUR  2 

1200  PRINT  TAB ( 34 , 6 ) ; "MY  GO" 

1210  IF  Yourscore=6  THEN  ENDPROC 
1220  A$  =  " o " : P  ROC _ t  h i nk 

1230  IF  FL  %  <  > 1  THEN  A$  =  "  ":PROC_think 
1240  S$(E%,F%)="  " 

1250  IF  S$ (E%+G%, F%+H%) ="o"  THEN  Myscor 
e=My score+1 

1260  S$ (E%+G%, F%+H%) ="x" 

1270  SOUND  2 , -10, 84 , 5 : SOUND  2,-10,101,5 
1280  ENDPROC 
12  90 

1300  DEF  PROC_t hink 

1310  PRINT  TAB (34, 8) ; "Think" 

132  0  E  %  =  RND ( 4 ) +1 : F  %  =  RND (2)+l:G%  =  0:H%  =  0 


1330 

F  L  % 

=  0 

1340 

IF 

S$  ( E  % , F  % )  <>"x 

"  THEN  1400 

1350 

IF 

S$ (E%+1 , F%+1 ) 

=  A$ 

THEN 

G%  =  1 : H%  =  1 

1360 

1 

IF 

S$ (E%+1 , F%-1 ) 

=  A$ 

THEN 

G%  =  1 : H%  =  — 

± 

1370 

1 

IF 

S$ (E%-1 , F%+1 ) 

=  A$ 

THEN 

G%=— 1 : H%= 

± 

1380 
_  1 

IF 

S$ (E%-1 , F%-1 ) 

=  A$ 

THEN 

G%=-1 : H%= 

± 

1390 

IF 

G%<>0  AND  H  %  <  >  0 

THEN 

FL%=1 : GOTO 

1430 

1400  E%=E%+1 : IF  E%>9  THEN  E%=2:F%=F%+1 
1410  IF  F  %  > 1 0  THEN  1430 
1420  GOTO  1330 

1430  PRINT  TAB ( 34 , 8 ) ; " [ spc5 ] " 

1440  ENDPROC 
1450 

1460  DEF  FN_anot her 
1470  VDU  28,33,26,39,3,12 
1480  COLOUR  3 

1490  IF  My score=6  THEN  PRINT"I  WON"  ELS 
E  PRINT "YOU  WON" 
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1500  COLOUR  1 

1510  PRINT' ' "Again?"; 

1520  REPEAT  K$=FNkey 

1530  UNTIL  K  $  =  " Y "  OR  K$  =  "N" 

1540  VDU  26, 12 
15  5  0  = ( K  $  = " Y " ) 

15  60 

1570  DEF  PROC_delay ( cent i ) 

1580  TIME=0 

1590  REPEAT  UNTIL  TIME>=centi 
1600  ENDPROC 
1610  END 
1620 

1630  DEF  FN_move 

1640  LOCAL  key$ , key$ , move$ 

1650  REPEAT  key$=FNkey 

1660  IF  k e y $ < " A "  OR  key$>"I"  THEN  VDU 
7 

1670  UNTIL  key$>="A"  AND  key$<="I" 
1680  PRINT  key$ ; : move$=key$ 

1690  REPEAT  key$=FNkey 

1700  IF  ( k e y $ < " 1 "  OR  key$>"8")  AND  ke 
y$OCHR$  (127)  THEN  VDU7 
1710  UNTIL  (key$>="l"  AND  key$<="8") 
OR  key $=CHR$ ( 127 ) 

1720  IF  key$=CHR$ (127)  VDU127:GOTO  1660 
1730  PRINT  key$; :move$=LEFT$ (move$, 1) +k 
ey  $ 

1740  REPEAT  key%=GET 

1750  IF  key%ol  3  AND  key%<>127  THEN  V 
DU  7 

1760  UNTIL  key%=l 3  OR  key%=127 

177  0  IF  key%  =  12  7  THEN  VDU127:GOTO  1690 

1780  =mo ve $ 

17  90 

1800  DEF  FNkey 
1810  *  F  X  15  1 
1820  LOCAL  Key% 

1830  Key%=GET 
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184  0  IF  Key %  >  9  6  AND  Key%<127  THEN  Key%  = 
Key%-32 

1850  =CHR$ (Key% ) 

18  60 

187  0  DATA  "  [ f s 0 ] ABCDEFGHI  [fsO]  " 

18  8  0  DATA  "lx [fsO] x [fsO] x [fsO] x  [fsO] xl" 

18  90  DATA  "2  [ f sO] x [ f sO ] x [ f sO] x [f sO ] x  [  f s 
0  ]  2  " 

190  0  DATA  "3x [ f s 0 ] x  [fsO]  [f sO] x [ f sO] x3" 

1910  DATA  "4  [ f  s  0 ]  [fsO]x[fsO]  [fsO]  [fs 
0  ]  4  " 

1920  DATA  "5  [fsO]  [fsO]  [fsO]  [fsO]  5" 

1930  DATA  "6 [fsO] o [f sO] o [fsO] o [f sO] o [fs 
0  ]  6" 

1940  DATA  "7o [fsO] o [fsO] o [fsO] o [fsO] o7" 

1950  DATA  "8 [fsO] o [f sO] o [fsO] o [f sO] o [fs 
0]  8" 

1960  DATA  "[ fsO ] ABCDEFGHI  [  fsO ]  " 
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Mandala 


Based  on  Draughts,  this  game  pits  you  (the  round,  mandala- 
like  pieces)  against  the  BBC  Micro'  spieces  (which  look  a  little 
like  Chess  knights).  You  move  diagonally,  as  in  Draughts,  and 
you  capture  by  jumping  over  the  opponent'  spiece  into  an 
empty  square  beyond.  There  are  no  multiple  jumps.  Each  piece 
can  move  in  any  direction  (that  is,  forwards  or  backwards  on 
the  diagonal). 

You  start  off  in  the  corner  of  the  board,  rather  than  along 
the  sides  as  in  ordinary  Draughts.  You  defeat  your  trusty  BBC 
Micro  if  you  manage  to  capture  seven  of  its  pieces  before  it 
manages  to  capture  seven  of  yours.  The  computer  will  concede 
the  game  if  it  decides  you  have  such  a  lead  that  it  could  never 
catch  up. 

You'  lfind  the  game  runs  very  quickly,  and  the  computer'  s 
response  time  increases  a  little  as  the  game  progresses.  You 
move  by  entering  a  four-digit  number,  made  up  from  the 
number  across  the  top  then  down  the  side  of  the  piece  you'  re 
moving,  then  the  number  across  the  top  then  down  the  side  of 
the  square  you'  re  moving  to. 

Note  that  this  program  uses  speech,  if  fitted,  speaking  the 
moves.  Due  to  the  length  of  the  program,  you  must  set  page  to 
&E00.  You  do  this  by  entering,  as  a  direct  command, 
PAGE=&E00  before  you  enter  or  load  the  program. 


10  REM  MANDALA 

20  ON  ERROR  GOTO  2580 

30  MODE  1 

40  PROC_init ialise 
50  REPEAT 
60  PROC_newgame 
70  PROC_drawboard 


180 


80  ON  ERROR  GOTO  2570 
90  REPEAT 

100  PROC_humanmove : PROC_wait 

110  PROC_comput ermove : PROC_wait 

120  UNTIL  human=7  OR  computer=7 

130  UNTIL  NOT  FN_anot hergame 
140  MODE  7 
150  END 

160  DEF  PROC_humanmove 
170  COLOUR  1 : COLOUR  131 

180  PRINT  TAB (33, 8)  ; "Your" ; TAB (33, 9)  ;  " 
Move" 

190  PROCspeak (290) : PROCspeak ( 2 7 2 ) :PROC 
speak  (12  8) 

200  COLOUR  1 : COLOUR  131:PRINT  TAB(33,1 
2 ) ; "From" : COLOUR  128:PROCspeak(200) 

210  VDU  31,34,13,32,32,8,8 
220  f rom$=FN_move 

230  xfrom=ASC (LEFT$ (from$, 1) ) -64 
240  yfrom=VAL (RIGHT$ (from$, 1) ) 

250  IF  A% ( 1 0 *x f r om+y f r om ) < >mandal a  THE 
N  PROC.retry : GOTO  200 

260  COLOUR  131: PRINT  TAB  (  3 3 , 1 5 )  ; "  To  " 
: COLOUR  128 :PROCspeak (ASC"2" ) 

270  VDU  31,34,16,32,32,8,8 
280  to$=FN_move 
290  xto=ASC (LEFT$ (to$, 1) ) -64 
300  yto=VAL (RIGHT$  (to$,  1)  ) 

310  IF  (xto  MOD  2  <  >  y t  o  MOD  2 ) THEN  PROC_r 
etry : GOTO  200 

320  IF  (yto-yf rom) <0  THEN  PROC_retry:G 
OTO  200 

330  IF  A% ( 1 0 *xt o+y t o ) <>b lank  PROC_retr 
y : GOTO  200 

340  IF  ABS (xf rom-xto) <>1  THEN  410 
350  A% (10*xfrom+yfrom) =blank:A% (10*xto 
+yto) =mandala 
360  COLOUR  1 

370  PROC_mandala (xto, yto) 
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380  COLOUR  0 

390  PROC_squar e ( xf r om, y f r om) 

400  ENDPROC 

410  IF  A% (  ( 1 0  * xt o  +  y t o  +  l 0 *x f r om  +  y f r om )  / 
2 ) <  >  kn ight  THEN  PROC_retry : GOTO  200 
420  human=human+ 1 

430  PROCspeak (275) : PROCspeak ( 22 8 ) :PROC 
speak (204 )  : PROCspeak ( 65 )  : PROCspeak ( 2 5 7  )  : 
PROCspeak (232) :PROCspeak (48+human) 

440  A% (  (10*xto  +  yto  +  10*xfrom  +  yfrom)  /2 )  = 
blank 

450  COLOUR  1 

460  PROC_mandala (xto, yto) 

470  COLOUR  0 

480  PROC_square (xfrom, yfrom) 

490  A% (10*xfrom+yfrom) =blank:A% (10*xto 
+yto) =mandala 

500  PROC_squar e (xfrom+ (xto-xfrom) -SGN ( 
xto-xfrom) , yfrom+ (yto-yfrom) -SGN (yto-yfr 
om)  ) 

510  COLOUR  1 

520  PRINT  TAB ( 32 , 3 ) ; " YOU  :  human 

530  ENDPROC 

540  DEF  PROC_comput ermove 
550  COLOUR  2 : COLOUR  131 

5  60  PRINT  TAB (3  3, 8);"  My  " ; TAB ( 3 3 , 9 )  ;  " 
Move PROCspeak (ASC" I " )  : PROC spe ak  (  2 7 2  )  :P 
ROCspeak (228) 

570  FOR  Z  %  =  8  8  TO  1  STEP  -1 

580  IF  A%  (  Z% )  Oknight  THEN  640 

590  Y  %  =  —  1 1 :FLAG=0 

600  IF  Z%+Y%>88  OR  Z%+Y%<11  OR  Z%+2* 
Y  %  >  8  8  OR  Z%  +  2  *Y%<11  THEN  620 

610  IF  A% (Z%+Y%) =mandala  AND  A%(Z%+2 
* Y% ) =b lank  THEN  FLAG=Z% : Z%  =  1 : GOTO  640 

620  Y%  =  -9*  (Y%  =  -11) +9*  (Y%: — 9)+10*(Y%  = 

11)  +  (Y%  =  100) 

630  IF  Y  %  <  >  0  THEN  600 
640  NEXT  Z% 
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650  IF  FLAG=  0  THEN  870 
660  Z%=FLAG 
670  A% ( Z% ) =blank 
680  A% (Z%+Y%) =blank 
690  A% ( Z%+2 *Y% ) =knight 
700  computer=comput er+1 

710  COLOUR  12  8: PRINT  TAB ( 3 2 , 4 )  ;  " ME  : 

" ; comput e  r 

72  0  xf r om=INT ( Z % / 1 0 )  : y f r om=Z % -1 0  * xf r om 
730  xdel  =  INT  (  (Z%+Y%)  / 1 0 )  :ydel  =  Z%  +  Y%-10 
*  xde  1 

740  PROCspeak ( 2 0 0 ) : PROCspeak ( 64 +xf rom) 
:PROCspeak (48+yfrom) 

750  PRINT  TAB ( 34 , 13 ) ; CHR$ ( 64+xf rom) ; yf 
rom 

760  COLOUR  2 

770  xt  o  =  INT (  ( Z  %  +  2  *  Y  % )  /10)  :yto=Z%+2*Y%- 
1 0  *xt o 

780  PROCspeak (ASC" 2 " ) : PROCspeak ( 64+xto 
) : PROC spe ak ( 4 8 +y t o ) 

790  PRINT  TAB ( 34 , 1 6 ) ; CHR$ ( 64+xt o) ; yt o 
800  PROC_kn ight ( xt o , y t o ) 

810  COLOUR  0 

820  PROC_square (xfrom, yfrom) 

830  PROC_square ( xde 1 , yde 1 ) 

840  COLOUR  2 

850  PROCspeak (ASC" I " )  : PROCspeak  (  2 2 8  )  :P 
ROCspeak ( 2 0 4 ) : PROC spe ak ( 6 5 ) : PROCspeak ( 2 5 
7) : PROCspeak ( 2 32 ) : PROCspe ak ( 4 8 tcomput e r ) 
860  ENDPROC 
870  Q%=1 

880  FOR  Z  %  =  Q%  TO  200 
890  K%=RND (77) +12 

900  IF  A%  ( K  %  )  Oknight  THEN  960 
910  Y%=-11 :FLAG=0 

92  0  IF  K%  +  Y% < 1 1  OR  K%  +  Y%>88  THEN  960 

930  IF  A%  (K%+Y%) =blank  THEN  F  LAG=  Z  % : 

Z  %  =  2  0  0  : GOTO  960 

940  Y%  =  -9*  (Y%  =  — 11) +9*  (Y%: — 9) +10*  (Y%  = 
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11)  +  ( Y%  =  1 0  0 ) 

950  IF  Y  %  <  >  0  THEN  920 
960  NEXT  Z% 


97  0 

IF 

F  L  AG  = 

0  THEN  1190 

980 

Z% 

=  F  L  AG 

990 

IF 

K%  +  2  * 

Y%  >  8  8  OR  K%  +  2*Y%<11 

THEN 

1 

040 

1000 

IF 

o\° 

o\o 

< 

+2 *Y%) =mandala  THEN 

870 

1010 

IF 

K% -2  * 

Y% < 1 1  OR  K%-2  *Y%>88 

THEN 

1 

040 

1020 

IF 

o\o 

o\o 

< 

-2 *Y%) =mandala  THEN 

870 

1030 

IF 

o\o 

o\o 

c 

+Y% ) <>b lank  OR  A% (K% 

)  okni 

ght  THEN 

880 

1040 

xt o=INT ( 

(K%  +  Y% )  /10)  : yt  o  =  K%  +  Y 

%-10* 

X 

t  o 

1050 

x f r om= INT ( K% / 1 0 )  : y  f  r  om  =  K  % -10 

* x  f  r om 

1060 

IF 

xt  o<  1 

OR  xt o>8  THEN  870 

1070 

IF 

y  t  o<  1 

PR  yt o>8  THEN  870 

1080 

IF 

( xt  o 

MOD  2 ) <> (yto  MOD  2 ) 

THEN 

8 

70 

1090 

A% 

(  K  %  +  Y  % 

) =knight :A% (K%) =blank 

1100  COLOUR  2 : COLOUR  128 

1110  PROCspeak ( 2 0 0 ) : PROCspeak ( 64 +xf rom) 
:PROCspeak (48+yfrom) 

1120  PRINT  TAB ( 34 , 13 ) ; CHR$ ( 64+xf rom) ; yf 
rom 

1130  PROCspeak (ASC" 2 " )  : PROCspeak  (  64+xto 
) : PROC spe ak ( 4 8 +y t o ) 

1140  PRINT  TAB ( 34 , 1 6 ) ; CHR$ ( 64+xt o) ; yt o 
1150  PROC_kn ight ( xt o , y t o ) 

1160  COLOUR  0 

1170  PROC_square (xfrom, yfrom) 

1180  ENDPROC 
1190  FOR  G%= 1  TO  200 
1200  K%=RND (77) +11 
1210  F  LAG  =  F AL  SE 

1220  IF  A% (K%) =knight  THEN  G%=200:FLA 
G=  TRUE 

1230  NEXT  G% 
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1240  IF  FLAG  THEN  1260 

1250  PRINT  TAB ( 31 , 2 1 ) ; " I  CONCEDE human 
=7 : COLOUR  128:PRINT  T AB ( 3 2 , 3 ) ; " YOU  :  7": 

ENDPROC 

1260  IF  A% (K%— 11) =blank  THEN  Y%=-ll:GOT 
0  1040 

1270  IF  A% (K%— 9) =blank  THEN  Y%=-blank:G 
OTO  1040 
1280  GOTO  1250 
1290  DEF  PROC_newgame 

1300  mandala  =  104:knight  =  99: squar e  =  1 4  3 : b 
lank=32 

1310  B$="MSMSMSBS"+"SMSMSBSB"+"MSMSBSBS 
"+"SMSBSBSK"+"MSBSBSKS"+"SBSBSKSK"+"BSBS 
KSKS"+"SBSKSKSK" 

1320  FOR  Z%=0  TO  1 0 0 : A% ( Z % ) = 9 : NEXT 

1330  FOR  r ow%=l  TO  8 

1340  FOR  column%=l  TO  8 

1350  C  $  =MID  $ ( B  $ ,  ( r ow% -1 )  *  8 +column% , 

1) 

1360  IF  C$="S"  THEN  A% ( 1 0  * co lumn %  +  r 

ow% ) =square 

1370  IF  C  $  = " M "  THEN  A% ( 1 0  * co lumn %  +  r 

ow%) =mandala 

1380  IF  C $  = " B "  THEN  A% ( 1 0  * co lumn %  +  r 

ow% ) =blank 

1390  IF  C $  = " K "  THEN  A% ( 1 0  * co lumn %  +  r 

ow% ) =knight 
1400  NEXT  column% 

1410  NEXT  r ow% 

1420  computer=0 : human=0 

1430  ENDPROC 

1440  DEF  PROC_drawboard 

1450  COLOUR  12  8 : CL  S 

1460  COLOUR  2 : COLOUR  131 

1470  PRINT  TAB ( 32 , 0 ) ; "MANDALA" 

1480  COLOUR  1 : COLOUR  128 
1490  PRINT  TAB (32, 3) ; "YOU  :  0" 

1500  COLOUR  2 
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1510  PRINT  TAB ( 32 , 4 ) ; "ME  :  0" 

1520  COLOUR  OrCOLOUR  131 

1530  PRINT  TAB (0, 0) ; STRING$ (30, "  " ) ; TAB 

(0,1); " [spc4]A  B  C  D  E  F  G  H[spc4 
] TAB (0,2) ; " [ spc3 ] STRING$ (24, "_" ) ; " [s 
pc 3]  TAB (0,27)  ;  "  [spc3]  ";STRING$ (24,  "  [fc 
0 ] " ) ; " [spc3 ] " ; TAB ( 0, 28) ; " [ spc4 ] A  B  C 
D  E  F  G  H [ spc4 ]  " ; TAB ( 0 , 2 9)  ; STRING$  (  3 
0  ,  "  "  ) 

1540  FOR  r ow%=l  TO  8 

1550  PRINT  TAB (0, 3*row%) ; "  [fcl]";TA 
B (27, 3  *row% )  ;  "  [fc2]  " 

15  60  PRINT  TAB (0,  l  +  3*row%)  ;  "  ";row%;" 

[fcl]  " ; TAB (2  7, l  +  3*row%)  ; "  [fc2]  " ; row%;  "  " 

1570  PRINT  TAB (0, 2+3*row%) ; "  [fcl]"; 

TAB (27, 2+3*row%) ; " [fc2]  " 


1580 

NEXT 

r  ow% 

1590 

COLOUR 

128 

1600 

FOR  r ow%=8  TO 

1 

STEP  -1 

1610 

FOR 

c  o  lumn  % 

=  1 

TO  8 

1620 

IF 

A  %  (10* 

row 

%+column% ) 

=  ma  nda 1 a 

THEN 

COLOUR 

1  :  PROC 

_mandala (column%, row% 

1630 

IF 

A  %  (10* 

row 

%  +  c  o lumn  % ) 

=kn ight 

THEN  COLOUR  2 : PROC_knight ( column% , row% ) 
1640  IF  A% ( 10 *row%+column% ) =square 

THEN  COLOUR  3 : PROC_square ( column^ , row% ) 
1650  NEXT  column% 

1660  NEXT  r ow% 

1670  PRINT  TAB (10,25) ; 

1680  ENDPROC 

1690  DEF  PROC_mandala (column!, row%) 

1700  VDU  3 1 , 3  * column! , 3  * r ow% ,  1 2 9 ,  1 3 0 ,  1 3 
1,10,8,8,8,132,133,132,10,8,8,8,134,130, 
135 

1710  ENDPROC 

1720  DEF  PROC_knight (column!, row!) 

1730  VDU  3 1 , 3  * column! , 3  * r ow% ,  3 2 ,  1 3 6 ,  1 3 7 
,10,8,8,8,138,139,140,10,8,8,8,32,141,14 


186 


2 


1740  ENDPROC 

1750  DEF  PROC_s quar e ( column% , r ow% ) 

17  60  VDU  3 1 , 3  * column% , 3  * r ow% ,  1 2 8 ,  1 2 8 ,  1 2 
8,10,8,8,8,128,128,128,10,8,8,8,128,128, 
128 

1770  ENDPROC 

1780  DEF  PROC_init ialise 
1790  DIM  A% ( 100 ) 


1800 

VDU 

23, 

0,10 

,  32, 

•V 

o 

•V 

o 

0; 

1810 

VDU 

23, 

128, 

&  FF  , 

&FF , 

&  FF  , 

&  FF  , 

&FF , 

&  FF 

,  &FF, 

&  FF 

182  0 

VDU 

23, 

129, 

&  0  0 , 

&  0  0 , 

&  0  0 , 

&01, 

&  0  3 , 

&  07 

,  &0F, 

&  IE 

1830 

VDU 

23, 

130, 

&  0  0 , 

&  0  0 , 

&  FF , 

&  FF  , 

&FF , 

&  FF 

,  &  0  0  , 

&  0  0 

1840 

VDU 

23, 

131, 

&  0  0 , 

&  0  0 , 

&  0  0 , 

&  8  0 , 

&C0, 

&  E  0 

,  &F0, 

&  7  8 

1850 

VDU 

23, 

132  , 

&  3C, 

&  3  C , 

&  3C, 

&  3C, 

&  3  C , 

&  3C 

,  &  3C, 

&  3C 

1860 

VDU 

23, 

133, 

&  0  0 , 

&  1  8 , 

&  3C, 

&  7E, 

&  7  E , 

&  3C 

,  &  1 8  , 

&  0  0 

1870 

VDU 

23, 

134  , 

&  IE , 

&  0  F , 

&  0  7  , 

&  0  3 , 

&01, 

&  0  0 

,  &  0  0  , 

&  0  0 

1880 

VDU 

23, 

135, 

&  7  8 , 

&  F  0 , 

&  E  0 , 

&C0, 

&  8  0 , 

&  0  0 

,  &  0  0  , 

&  0  0 

1890 

VDU 

23, 

136, 

&  0  0 , 

&  0  0 , 

&01, 

&  0  7 , 

&  0  F , 

&  1 3 

,  &  33 , 

&  7F 

1900 

VDU 

23, 

137  , 

&  0  0 , 

&  8  0 , 

&  8  0 , 

&  8  0 , 

&C0, 

&C0 

,  &C0 , 

&  E  0 

1910 

VDU 

23, 

138, 

&  0  0 , 

&01, 

&  03 , 

&  0  7 , 

&  0  F , 

&  0  9 

,  &  03  , 

&  0  0 

192  0 

VDU 

23, 

139, 

&  FF , 

&FF , 

&  FF  , 

&  F  7 , 

&  C  7  , 

&  8  7 

,  &  0  7  , 

&  0  7 

1930 

VDU 

23, 

140, 

&  E  0 , 

&  E  0 , 

&  E  0  , 

&  E  0 , 

&  E  0 , 

&  E  0 

,  &F0, 

&  F  0 

194  0 

VDU 

23, 

141, 

&  OF, 

&  1 E , 

&  IE  , 

&  3  E , 

&7D, 

&  FF 

,  &  0  0  , 

&  0  0 

1950 

VDU 

23, 

142  , 

&  F  0 , 

&  F  0 , 

&  F  0  , 

&  F  0 , 

&  F  0  , 

&  F  8 
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,  &  0  0 ,  &  0  0 

1960  VDU  2  3, 143, &  0 1 , &01, &  0 1 , &  0  1 , &  0  1 , &01 
,  &  0 1 , &FE 

1970  VDU  23, 144, &FF, &00, &00, &  0  0 , &  0  0 , &00 
,  &  0  0  ,  &  0  0 

1980  VDU  23, 145, &01, &01, &01, &01, &01, &01 
,  &  0 1 , &  01 

1990  VDU  23, 146, &80, &80, &80, &  8  0 , &80, &80 
,  &  8  0  ,  &  8  0 

2000  VDU  19,3,4,0,0,0 
2010  speech=FN_SYNTH 
2020  ENDPROC 

2030  DEF  FN_ SYNTH : REM  if  OS  0.10  put  =F 
LASE  here . 

2040  A%=235 : X%=&00 : Y%=&FF : !&70=USR&FFF4 
2050  IF  ?&71=&FF  THEN  =TRUE  ELSE  =FALSE 
2060  DEF  PROCspeak ( word) 

2070  IF  NOT  speech  THEN  ENDPROC 

2080  SOUND  -1, word, 0,0 

2090  REPEAT  UNTIL  ADVAL(-9)>60 

2100  ENDPROC 

2110  DEF  FN_move 

2120  LOCAL  key $, key %, move  $ 

2130  *FX  15  1 

2140  REPEAT  key$=GET$ 

2150  IF  k e y $ < " A "  OR  key$>"H"  THEN  VDU 
7 

2160  UNTIL  key$>="A"  AND  key$<="H" 
2170  REMUNTIL  key$>="A"  AND  key$<="H" 
2180  PRINT  key$ PROCspeak (ASC (key$ ) ) 
2190  move$=key$ 

2200  REPEAT  key$=GET$ 

2210  IF  (key$<="l"  OR  key$>="8")  AND 
key$OCHR$  (127)  VDU7 
2220  UNTIL  (key$>="l"  AND  key$<="8") 
OR  key $=CHR$ ( 127 ) 

2230  IF  key$=CHR$ (127)  THEN  VDU  127:GOT 
O  2150 

2240  PRINT  key$ PROCspeak (ASC (key $) ) 
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2250  move$=LEFT$ (move$ , 1 ) +key$ 

2260  REPEAT  key%=GET 

2270  IF  key%ol  3  AND  key%<>127  THEN  V 
DU7 

2280  UNTIL  key%=13  OR  key%=127 

22  90  IF  key%  =  12  7  THEN  VDU  127:GOTO  22  00 

2  3  0  0  =mo ve  $ 

2310  DEF  PROC_ret  ry 

2320  PRINT  TAB (32, 20) ; "ILLEGAL" :PROCspe 
ak (193) 

2330  PRINT  TAB ( 34 , 2 1 )  ;  "MOVE " : PROCspeak  ( 
128) 

2340  PROCspeak  (241)  : PROCspeak  (  2 7 2 )  :PROC 
speak (162) 

2350  PROC_wa i t 

2360  PRINT  TAB ( 32 , 2 0 )  ;  "  [  spc7 ]  " 

2370  PRINT  TAB ( 34 , 2 1 )  ;  "  [  spc4 ]  " 

2380  ENDPROC 

2390  DEF  PROC_wait 

2400  FOR  W%=1  TO  5000:NEXT 

2410  ENDPROC 

2420  DEF  FN_anot hergame 

2430  ON  ERROR  GOTO  2580 

2440  COLOUR  1 

2450  PRINT  TAB (31,22) ; 

2460  IF  computer=7  AND  human=7  THEN  PRI 
NT "A  DRAW" : PROCspeak (ASC"U" ) :PROCspeak(l 
65) : PROCspeak (ASC" I " ) : PROCspeak ( 1 7 3 ) :PRO 
Cspeak  (ASC'l"  ) 

2470  IF  computer=7  AND  human<>7  THEN  PR 
INT" I  WIN" : PROCspeak (ASC" I " ) :PROCspeak(A 
S  C  "  I  "  ) 

2480  IF  computer<>7  AND  human=7  THEN  PR 
I N T " Y O U  WIN" : PROCspeak ( "ASC"U" )  :PROCspea 
k  (  "ASC'l"  ) 

2490  PROCspeak ( 12 8 ) : PROCspeak ( 2 67 ) :PROC 
speak (257 ) : PROCspeak ( 2 0 9 ) : PROCspeak ( 2 6 6 ) 

: PROCspeak ( 2 7 5 ) : PROCspeak ( 2 0 4 ) :PROCspeak 
(human  +  48)  : PROC s pe ak ( 1 6 5 )  : PROCspeak  (  2 0 5 ) 


189 


:PROCspeak(204)  :PROCspeak( comput e  r +  4  8 ) 
2500  PRINT  TAB (31, 24) ; "Another" 

2510  PRINT  TAB ( 31 , 2 5 ) ; "t ry  Y/N"; 

2520  PROCspeak (184) : PROCspeak ( ASC"U" ) :P 
ROC spe ak ( 2 8 1 ) : PROC spe ak ( 1 6 6 ) :PROCspeak(2 
12) 

2530  *  F  X  15  1 
2540  REPEAT  K$=GET$ 

2550  UNTIL  K$="Y"  OR  K$="N" 

2560  IF  K  $  =  " Y "  THEN  PROCspeak ( 2 8 9  )  :  =TRU 
E  ELSE  PROCspeak (226)  :=FALSE 
2570  IF  ERR= 1 7  THEN  PRINT  T AB ( 3 4 , 2 0 ) ; " Y 
ou" ; TAB (32,21) ; "CONCEDE": computer =7 :COLO 
UR  128 :PRINT  TAB ( 3 2 , 4 ) ; "ME  :  7 " : IF  FN_a 

nothergame  THEN  RUN 
2580  MODE  7 
2590  ON  ERROR  OFF 

2600  IF  ERR<>17  THEN  REPORT : PRINT"  at  1 
ine  " ; ERL  ELSE  PRINT ' " [ f s 1 ] BYE [ f s 7 ] " 
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Four  Up 


In  this  game,  as  its  name  implies,  the  aim  is  to  get  four  of  your 
pieces  in  a  line  in  any  direction  before  the  computer  manages 
to  do  this  with  its  pieces. 

Once  you'  vdecided  which  column  you  wish  to  move  into, 
the  piece  drops  to  the  lowest  available  position  in  that  column. 

The  computer  plays  this  game  fairly  well,  and  surprisingly 
quickly,  when  you  see  how  many  loops  it  has  to  go  through. 

In  this  version  of  Four  Up,  the  BBC  Micro  always  allows 
the  human  to  have  the  first  move,  and  bases  its  initial  move  on 
the  move  made  by  the  human.  You  may  wish  to  modify  the 
program  so  that  there  is  provision  for  the  player  to  decide,  at 
the  start  of  each  game,  who  should  move  first.  You'  lbe  offered 
a  new  game  at  the  end  of  each  round. 


10  REM  Four  UP 
20 

30  MODE  7 

40  ON  ERROR  GOTO  1600 
50  PROC_init ialise 
60  REPEAT 
70  PROC.board 
80  PROC_win 
90  PROC_human 
100  PROC.board 
110  PROC_win 
120  PROC_computer 
130  UNTIL  FALSE 
140  END 
150 

160  DEF  PROC_init ialise 
170  VDU  23, 0, 10, 32, 0; 0; 0; 
180  *  F  X  4  1 
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190  DIM  A% (109)  ,M% (30)  ,P%  (6) 

2  0  0  E  %  =  A  S  C " . " 

210  H%=ASC"H" :C%=ASC"C" 

220  FOR  B %  =  1  TO  109 
230  A% ( B% ) =E  % 

240  D%=B%— 10*INT (B%/10) 

2  50  IF  D %  =  0  OR  D % > 7  OR  B%<11  OR  B%>7 
7  THEN  A%  ( B  % )  =-9 
260  NEXT  B  % 

270  quit=FALSE 
280  ENDPROC 
2  90 

300  DEF  PROC_win 
310  IF  quit  THEN  450 
320  X%=H% 

330  B%  =  1 0 
340  B%=B%+1 

350  IF  A% (B% ) <>X%  THEN  400 
360  IF  A%  ( B  %  + 1 ) =X%  AND  A%(B%  +  2)=X%  AND 
A%  ( B%  +  3 ) =X%  THEN  440 
370  IF  B%  >  3  0  THEN  IF  A%(B%-10)=X%  AND 
A%  (B%-2  0 ) =X%  AND  A%(B%-30)=X%  THEN  440 
380  IF  B%  >  3  3  THEN  IF  A%(B%-11)=X%  AND 
A%  ( B  % - 2  2 ) =X%  AND  A%(B%-33)=X%  THEN  440 
390  IF  B%>2  7  THEN  IF  A%(B%-9)=X%  AND  A 
%  (B%-18) =X%  AND  A%  (B%-2  7 ) =X%  THEN  440 
400  IF  B%  <  7  7  THEN  340 
410  IF  X%=H%  THEN  X%=C%:GOTO  330 
420  ENDPROC 
430  REM  win  found 

44  0  IF  X%  =  H%  THEN  PRINT"  [fs8]  [fs3]You: 
ve  beaten  me"  ELSE  PRINT" [fs8][fs2] I've 
defeated  you" 

450  PRINT  TAB (0, 22)  [fsl]  [fs8] Another 
game  ? " ; 

4  60  REPEAT  K  $  =  GE  T  $ 

47  0  UNTIL  K $  =  " Y "  OR  K$  =  "N" 

480  IF  K  $  =  " Y "  THEN  RUN 
4  90  CL  S 
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500  *  F  X  4 

510  END 
52  0 

530  DEF  PROC_board 

540  VDU  28,0,23,39,14,12,26 

550  PRINT  TAB (8,  1)  ; CHR$  (141)  ;  "  [fsl] Fou 
r  Up" 

5  60  PRINT  TAB (8, 2)  ; CHR$  (141)  ;  "  [fsl] Fou 
r  Up"  ' 

570  FOR  K%= 1 0  TO  70  STEP  10 
580  PRINT  TAB ( 5 ) ; 

590  FOR  J%=1  TO  7 

600  IF  A% (K%  +  J%) =H%  THEN  PRINT"  [fs 

3]  "; 

610  IF  A% (K%+J%) =C%  THEN  PRINT" [fs 

2]  "; 

620  IF  A% (K%+ J% ) <>C%  AND  A%(K%+J%) 

< >H%  THEN  PRINT"  [fs6]  "  ; 

630  VDU  A% (K%+ J%) 

640  NEXT  J% 

650  PRINT 
660  NEXT  K% 

670  PRINT  TAB (5) ; " [fsl] 1  234567" 
680  PRINT  SP C  (30) 

690  ENDPROC 
700 

710  DEF  PROC.human 

720  PRINT "[ f s 3 ] Your  move..."' 

730  REPEAT 

740  PRINT  TAB (0, 17) [fs3] Which  colu 
mn  do  you  wish  to  move  into" 

750  PRINT"  [fs3]To  move:  [fs6]  [  left" 
760  PRINT"  [fs6]  [spclO]  ]  right" 

770  PRINT" [fs6] [spc5] RETURN  drop" 

780  J%=4 

790  REPEAT 

800  PRINT  TAB ( 3+2  * J%, 12 )  ;  "  [  f s3 ]  A  "  ; 

810  *FX  15  1 

820  K%=GET 
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830  PRINT  TAB (0, 22)  ; SPC  (39)  ; 

84  0  PRINT  TAB ( 3+2  * J%, 12 )  ;  " 

850  IF  K%  =  1 3  6  THEN  J%  =  J%-1 

8  60  IF  K%  =  1 3  7  THEN  J%  =  J%  +  1 

870  IF  J%=0  THEN  J%=7 

880  IF  J%=8  THEN  J%=1 

890  UNTIL  K%=1 3 

900  Z%=J% 

910  REPEAT 

920  Z%=Z%+10 

930  UNTIL  A% (Z%+10) <>E% 

94  0  IF  A%  ( Z  % ) <  >E  %  PRINT  TAB  (  3 , 2 2 )  ;  "  [ 
fsl] [fs8] You  can't  move  there" 

950  UNTIL  A%  ( Z  % ) =E  % 

960  A%  ( Z  % ) =H% 

970  ENDPROC 
980 

990  DEF  PROC_comput er 
1000  PRINT ' " [ f s 2 ] St and  by  for  my  move.. 


1010  B%  =  1 0 
1020  B%=B%+1 

1030  IF  A%  ( B % ) = - 9  THEN  1060 

1040  IF  A% (B% ) =C%  THEN  X%=C%:GOTO  1110 

1050  IF  A% (B% ) =H%  THEN  X%=H%:GOTO  1110 

1060  IF  B%  <  7  7  THEN  1020 

1070  GOTO  1370 

1080 

1090  REM  Four  in  a  row  D anger / Chance ? 
1100  REM  across 

1110  IF  A%  ( B  %  + 1 ) =X%  AND  A%(B%  +  2)=X%  AND 
A% ( B%+3 ) =E%  AND  A% ( B % + 1 3 ) < >E %  THEN  move 
=B%+3 : GOTO  1550 

1120  IF  A%  ( B  %  —  1 ) =X%  AND  A%(B%-2)=X%  AND 
A% ( B %  —  3 ) =E%  AND  A% ( B %  +  7 )  <>E%  THEN  move  = 
B%-3 : GOTO  1550 

1130  IF  A%  ( B  %  + 1 ) =X%  AND  A%  (  B%  +  2 )  =X%  AND 
A%  ( B  %  —  1 )  =E%  AND  A%  ( B  %  +  9 )  <  >E  %  THEN  move  = 
B%-1 : GOTO  1550 
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1140  IF  A% (B%— 1) =X%  AND  A%(B%+2)=X%  AND 
A%  (  B  %  + 1 )  =E  %  AND  A%  (B%  +  11)  <>E%  THEN  move 
=  B%  + 1 : GOTO  1550 

1150  IF  A% (B%+1) =X%  AND  A%(B%-1)=X%  AND 
A%  (B%  +  2) =E%  AND  A% (B%  +  12)  <>E%  THEN  move 
=  B%  +  2 : GOTO  1550 

1160  IF  A%  ( B  %  + 1 ) =X%  AND  A%  ( B%  —  1 )  =X%  AND 
A% ( B%— 2 ) =E%  AND  A%(B%+8)OE%  THEN  move= 
B%-2 : GOTO  1550 

1170  IF  A%  ( B  %  —  1 ) =X%  AND  A%(B%-2)=X%  AND 
A%  (  B%  + 1 ) =E  %  AND  A% (B%  +  11)  <>E%  THEN  move 
=B%+1 : GOTO  1550 
1180  REM  down 

1190  IF  B%>2  0  THEN  IF  A%(B%-10)=X%  AND 
A%  (B%-2  0 )  =X%  AND  A%(B%  +  10)=E%  AND  A%(B%  + 
2  0) < >E %  THEN  move  =  B%  +  10 : GOTO  1550 
1200  REM  diagonals 

1210  IF  A% (B%+11) =X%  AND  A%(B%+22)=X%  A 
ND  A% (B%— 11) =E%  AND  A%(B%-l)OE%  THEN  mo 
ve=B%-ll : GOTO  1550 

1220  IF  A% (B%+9 ) =X%  AND  A%(B%+18)=X%  AN 
D  A%  ( B  %  -  9  )  =E  %  AND  A%(B%  +  l)OE%  THEN  move 
=B%- 9 : GOTO  1550 
1230 

1240  REM  make  block  three? 

1250  REM  across 

1260  IF  A% (B%+1 ) =X%  AND  A%(B%+2)=E%  AND 
A% (B%+12) <>E%  THEN  move=B%+2 : GOTO  1550 
1270  IF  A% (B%+1 ) =X%  AND  A%(B%-2)=E%  AND 
A%  (B%  +  9)  <>E%  THEN  mo ve =B % - 1 : GO TO  1550 
1280  IF  A% (B%— 1 ) =X%  AND  A%(B%-2)=E%  AND 
A%  (  B%  +  8 )  <>E%  THEN  move=B%-2 : GOTO  1550 
1290  REM  vertical 

1300  IF  A% (B%+10) =X%  AND  A%(B%-10)=E%  A 
ND  A% (B% ) <>E%  THEN  move=B%-l 0 : GOTO  1550 
1310  REM  diagonal 

1320  IF  A% (B%+9 ) =X%  AND  A%(B%-9)=E%  AND 
A%  (B%  +  1)  <>E%  THEN  mo ve =B % - 9 : GO TO  1550 
1330  IF  B  %  > 1 1  THEN  IF  A%(B%  +  11)=X%  AND 
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A  % (B%— 11) =E%  AND  A% (B%— 1) <>E%  THEN  move= 
B%-1 1 : GOTO  1550 
1340  GOTO  1060 
1350 

1360  REM  single  moves 
1370  FOR  N%= 1  TO  3 
1380  M% { N  % ) =  0 

13  90  NEXT  N  % 

1400  count =0 

1410  FOR  B%=1 1  TO  77 

142  0  IF  A%  ( B%  )  <  >C  %  AND  A%(B%)OH%  THE 
N  14  80 

1430  IF  A%  ( B%  + 1 ) =E  %  AND  A%  (  B %  +  1 1 )  < >E % 
THEN  count=count+l :M% (count) =B%+1 

14  4  0  IF  A%  (  B%  —  1  )  =E  %  AND  A%(B%  +  9)OE% 
THEN  count=count+l :M% (count) =B%-1 

1450  IF  A%  (B%  — 10)  =E%  AND  A%(B%)OE%  T 
HEN  count=count+l :M% (count) =B%-10 
1460  IF  A%  (B%  — 11)  =E%  AND  A%(B%-l)OE% 
THEN  count=count+l :M% (count) =B%-11 
1470  IF  A%  (  B  %  —  9  )  =E  %  AND  A%(B%  +  l)OE% 
THEN  count=count+l :M% (count) =B%-9 
1480  NEXT  B  % 

1490  IF  countoO  THEN  1540 

1500  PRINT''"[fs8][fs4]I  think  we  shoul 
d  call  this  a  draw" 

1510  PRINT ' ' ' 

1520  quit=TRUE 

1530  PROC_win 

1540  mo ve=M% ( RND ( count ) ) 

1550  A% (move) =C% 

1560  PRINT  TAB ( 3  +  2  *  (move  MOD  10),12);"[ 
f  s  2  ]  A  "  ; 

1570  ENDPROC 
1580 

1590  REM  Handle  Errors 
1600  IF  ERR= 1 7  THEN  450 
1610  MODE  7 
1  62  0  *  F  X  4 
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1630  REPORT : PRINT"  at  line  " ; ERL 
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Adventure  and  Simulation 


The  Bannochburn  Legacy 


Down  in  the  depths  of  darkness  you  go.  Armed  with  only  your 
computer  and  your  keen  mind,  you  have  decided  to  take  on  the 
forces  of  evil.  You  may  be  on  a  desert  island,  inside  a  haunted 
house  or  castle  (as  in  this  program)  or  trapped  in  a  cave  system 
on  a  planet  'somewhere  in  a  galaxy  far  away'.  Adventure  games 
take  place  in  all  of  these  scenarios  and  a  thousand  more 
besides.  Come  with  us  now  as  we  discover  the  excitement  of 
the  world  of  Adventure,  with  The  Bannochburn  Legacy. 

The  word  'adventure'  is  used  to  describe  the  class  of 
computer  games  in  which  the  player  moves  through  an  alterna¬ 
tive  reality.  In  this  'other  world'  there  are  monsters  to  be 
fought,  treasures  to  be  discovered,  maps  to  be  made  and 
puzzles  to  be  solved. 

Many  people  feel  that  Adventure  games  are  the  most 
exciting  games  which  can  be  played  with  the  BBC  Micro,  so  we 
knew  we'd  have  to  include  one  for  you  in  this  collection.  And 
what  a  big  program  it  is,  occupying  over  16K  (17062  bytes,  to 
be  exact). 

One  feature  of  true  Adventure  games  is  that  the  reality  they 
model  is  consistent.  That  is,  the  world  created  within  the 
program  is  solid  and  the  parts  of  the  world  do  not  shift  in  a 
random  fashion.  In  a  properly  constructed  Adventure,  the 
rivers  stay  in  place,  the  dungeon  walls  to  not  mysteriously  move 
and  shift  every  time  you  turn  your  back,  and  objects  you  put 
down  in  one  cave  within  an  underground  labyrinth  do  not 
suddenly  reappear  of  their  own  volition  one  hundred  caves 
away. 

And  so  it  is  with  this  program.  Map-making  is  one  of  the 
true  Adventure-player's  skills  and  delights.  Working  your  way 
through  an  imaginary  (but  self-consistent)  environment, 
tackling  monsters  and  collecting  treasures  as  you  go,  is  only 
fascinating  if  the  world  you  are  exploring  is  mappable.  The 
world  of  The  Bannochburn  Legacy  is  mappable. 
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In  this  program,  all  the  activities  (except  for  the  very 
beginning)  take  place  within  the  castle.  This  strange  monolith 
contains  a  number  of  monsters,  including  '  anangry  warlock' 
and  '  afire-breathing  Fearbringer'  ,who  wander  through  the 
castle  while  you  are  playing  the  game,  waiting  for  a  chance  to 
leap  upon  you  and  tear  you  limb  from  limb.  The  castle  also 
contains  bottles  of  magic  potion,  chests  which  contain  good 
and  bad  surprises,  sheets  of  papyrus  with  magic  spells  written 
on  them,  and  more  besides.  To  tell  you  of  everything  you  will 
meet  would  diminish  the  game  somewhat. 

The  aim  of  the  game  is  to  find  the  Black  Lagoon  which  lies 
beneath  the  castle,  but  is  entered  from  an  ordinary-looking 
door.  The  location  of  the  Black  Lagoon  can  change  from  game 
to  game,  although  it  will  not  move  once  a  game  is  underway. 
This  ensures  that  your  interest  is  maintained  in  the  game  even 
after  you  first  manage  to  map  it. 

You  are  endowed  with  three  '  attributes'when  you  play: 
magic,  strength  and  wisdom.  You  play  the  whole  game  in  terms 
of  attributes,  choosing  to  battle  within  the  attribute  in  which 
you  feel  strongest,  and  in  which  you  feel  the  particular  monster 
is  weakest.  Your  attributes  change  and  develop  as  the  game 
progresses,  gaining  value  when  you  win  a  battle,  and  diminish¬ 
ing  when  you  lose  one. 
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When  you  first  run  the  program,  you'  11  see  the  following: 

Please  enter  your  first  name  ?Ian  the 
Brave 


Hi  there,  Ian  the  Brave 
Please  stand  by  . . . 

Ian  the  Brave,  your  attributes  are  : 

Magic  :  2 

Strength  :  4 

W i s  dom :  4 

You  are  at  the  entrance  to  an 

ancient,  forbidding-looking 
castle.  You  are  standing  on 
the  North  side  of  the  castle, 
and  as  you  look  South,  towards 
the  tumbling  structure,  you 
notice  the  entrance  portal 

is  open  and  unguarded. 

What  do  you  want  to  do  now  ?  Go  South 

The  final  question  ('  Whatio  you  want  to  do  now  7  Hornes 
after  most  room-descriptions  in  the  game,  and  you  need  to  give 
one  of  the  following  answers: 

N  go  north 
S  go  south 
E  go  east 
Wgo  west 

F  fight  (this  is  one  of  the  two  possible  answers  you  can  give 
when  confronted  by  a  monster) 

R  run  (this  is  the  other  answer  and  it  is  not  always 


203 


accepted.  '  No,you  must  stand  and  fight,'  you  may  be 
told) 

Q  quit  (this  is  used  if  you  wish  to  terminate  the  game 
before  the  end) 

L  look  (redisplays  description  of  current  location) 

The  only  other  answers  you'  lheed  are  '  N'and  '  Yto  answer 
questions  like, '  Dcyou  want  to  open  the  chest?'  All  commands 
require  you  simply  to  touch  the  relevant  key.  RETURN  is  not 
required.  The  computer  responds  by  filling  in  the  rest  of  the 
command,  as  you  can  see  in  the  sample  above,  where  it  has 
printed  '  Gc6outh'  although  Ian  the  Brave  only  touched  the  '  S' 
key. 

The  Bannochburn  Legacy  is  largely  self-running,  and  takes 
care  of  many  of  the  tasks  which  a  '  Dungeon-mastertakes  care 
of  in  a  role-playing  game  with  other  people.  One  of  these  tasks 
is  the  running  of  battles,  or  melees,  which  occur  during  the 
game.  All  fights  are  resolved  according  to  the  relative  strengths 
of  the  protagonists  in  the  battle,  and  on  the  result  of  a  throw  of 
a  die  which  is  weighted  in  favour  of  the  stronger  of  the  two 
squaring  up  to  fight.  You  should  always  select  the  attribute  in 
which  you  most  outrank  the  monster  to  increase  your  chances 
of  winning  any  fight. 

The  point  of  the  game  is  to  get  out  of  the  Black  Lagoon 
alive.  In  the  final  fight,  against  the  Guardian  of  the  Black 
Lagoon,  you  must  have  three  fights,  one  with  each  attribute, 
and  you  must  finish  this  three-part  fight  with  a  total  of  at  least 
ten  attribute  points.  The  money  you  collect  within  the  castle 
can  be  used,  just  before  the  final  fights,  to  buy  additional 
attribute  points. 

To  tell  you  much  more  would  detract  from  the  process  of 
discovery  when  you  play  the  game.  All  we  need  to  do  is  assure 
you  that  the  castle  layout  is  mappable  and  coherent,  and  it  is 
worth  the  trouble  of  trying  to  work  out,  and  map,  the  layout  of 
the  castle. 

Here  are  some  more  sample  '  snapshotsbf  one  run  of  the 
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program  in  action. 


Magic  :  2 

Strength  :  9 

Wids om :  4 

Wealth:  £301 

This  is  the  most  magnificent 
room  in  the  castle,  the  Great 
Hall,  with  massive  hammerbeam 
roof.  You  can  leave  it  by  the 
double  doors  to  the  North  or  by 
those  to  the  East  behind  which 
you  can  hear  music  playing. 

Through  the  windows  in  the  West 
wall,  you  can  see  the  Contoured 
Garden,  and  beyond  that,  through 
windows  of  a  room  hung  with 
many,  many  fine  paintings. 

You  see  a  small  bottle  engraved 
with  curious,  twisted  letters  .  .  . 

Will  you  drink  the  potion  which 
you  can  see  inside  the  bottle  ?  Yes 
It  contained  a  potion  which 
weakens  you  further  .  .  . 

The  room  contains  a  fire¬ 
breathing  Fearbringer.  His 
Wisdom  is  6  while  he 
has  a  strength  rating  of  5 
and  his  Magic  skill  is  5 

What  do  you  want  to  do  now  ?  Fight 
The  Fearbringer ' s  Magic  is  5 
Strength  is  5  and  Wisdom  is  6 

Which  characteristic  will  you  fight 
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with  (M/S/W)  ?  Strength 

The  fight  table  for  this  melee  reads  -1 
The  melee  carries  a  cost/reward  of  5 
The  monster  attacks  and  the 
fight  is  underway 

The  story  of  Bannochburn  Castle  is  simple,  but  tragic.  In 
the  famed  War  of  the  Clans  which  ravaged  northern  Scotland 
in  the  closing  years  of  the  fifteenth  century,  the  Laird  of 
Bannochburn  engaged  the  services  of  Wee  Sporran  McMerlin, 
a  sorcerer  originally  in  the  employ  of  King  James  in  the 
Edinburgh  Court.  When  the  bloodthirsty  McKinna  clan  joined 
forces  with  the  equally  intemperate  McClaren  hordes,  and 
together  attacked  Bannochburn,  the  Laird  employed  McMerlin 
to  invoke  a  spell  to  protect  the  castle  forever. 

Unfortunately,  Wee  Sporran'  intelligence  was  not  as  good 
as  his  magic,  and  instead  of  conjuring  up  some  spells  to  look 
after  the  inhabitants,  he  simply  conjured  up  a  storm  to  protect 
the  castle.  The  Laird  and  his  retainers  were  slaughtered,  but 
the  castle  remained  intact.  It  survived  right  up  to  this  day,  and 
your  task  now  is  to  explore  it  and  try  to  seek  out  its  secrets  and 
gold  and  slay  the  Guardian  of  the  Black  Lagoon  so  that  the 
current  Bannochburn  Clan  (now  living  above  a  dry  cleaner'  an 
Glasgow)  can  regain  their  rightful  inheritance.  You  feel  that 
they'  llbe  pretty  grateful  to  you  if  you  manage  to  slay  the 
Guardian  and  thus  rid  the  castle  of  the  spooky  inhabitants  Wee 
Sporran  placed  within  the  walls  so  many  years  ago  to  protect  it. 

Note  that  once  you  enter  the  castle,  there  is  no  way  out  but 
through.  You  cannot  leave  again  by  the  front  entrance,  so  there 
is  no  room  for  second  thoughts. 

Good  luck,  and  may  the  Guardian  fall  to  your  mighty 
powers. 


10  REM  The  Bannochburn  Legacy 
20 

30  * T V  255 
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40  MODE  7 
50  PROC_INI T 
60  REPEAT 
7  0  CLS 

80  IF  M ( 7 ) =  0  AND  S(7)=0  AND  W(7)=0 
THEN  PRINT" This  adventure  has  ended." 1 "Y 
ou  have  exhausted  all  your  powers .  "  '  ' "Yo 
u  fought  bravely  and  well, "'"but  could  n 
ot  endure . " ' ' ' "Farewell  my  friend  ...  " ' 

'  '  '  : P  R0C_QU I T 

90  VDU  26,12 

100  PRINT  N$;",  your  attributes  are 

•  II  I 

110  IF  M ( 7 ) > 0  THEN  PRINT "[ spc3 ] Magic 
:  "  ;  M  (  7  ) 

120  IF  S ( 7 ) > 0  THEN  PRINT " St rength  : 

"  ;  S  (  7  ) 

130  IF  W ( 7 ) >  0  THEN  PRINT"  Widsom  : 

"  ;  W  (  7  ) 

140  IF  MONEY>  0  THEN  PRINT"  Weath 
£ " ; MONEY 

150  VDU  28, 0, 24, 39, VPOS+1, 14 
160  PROC_P AU  SE 

17  0  Z  $  = " " 

180  PROC_ROOM 

190  M=0 : IF  Z>1  THEN  IF  RND ( 1 ) > . 5  THE 

N  PROC_CONTENT  S 
200  PROC_P AU  SE 

210  PROC_ACTION 
220  PROC_P AU  SE 

230  UNTIL  FALSE 
24  0 

250  DEF  PROC_MELEE 
260  ROLL=RND (6) 

270  VICTORY=0 

280  IF  ( D IFF  <  0  AND  ROLL >AB S  ( D IFF )  )  OR 
( D I F  F  >  0  AND  ROLL<  =  D IFF )  OR  (DIFF  =  0  AND  R 
OLL<  4 )  THEN  VICTORY  =  l 
2  90  PROC_P AU  SE 
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300  ENDPROC 

310 

32  0  DEF  P  RO  C_MON  S  T  E  R 

33  0  IF  Q=  0  THEN  ENDPROC 

340  PRINT 

350  ON  Q  GOSUB  380,390,400,410,420 

360  PROC_PAUSE 

370  ENDPROC 

380  PRINT" There  is  an  angry  Warlock  in 
"  1  "the  room.  He  has  a  Magic"  1,1  rating  of 
";M(1)  '"His  Strength  is  " ;  S  ( 1 )  ;  "  and",nh 
is  Wisdom  is  " ; W  ( 1 )  : RE TURN 

390  PRINT "The  room  contains  a  fire-"1" 
breathing  Fearbringer.  His"1 "Wisdom  is  " 
; W  (  2 )  ;  "  while  he"1  "has  a  strength  rating 
of  " ; S (2 ) 1 "and  his  Magic  skill  is  ";M(2 
) : RETURN 

400  PRINT "Horrors!  You've  stumbled  in 
on" *  " the  hiding  place  of  an  awful"1 "Soul 
threat.  You  can  see  at  a"1 "glance  his  St 
rength  is  ";S(3)  '  "his  Magic  ability  rate 
s  " ; M ( 3 )  *  " and  his  Wisdom  is  " ; W  (  3 )  : RE  TUR 
N 

410  PRINT" You1 ve  tripped  in  the  dark." 
: PROC_PAUSE : PRINT" Something  awakes .  Oh, 
you* re  face"1 "to  face  with  Gravelpit,  th 
e"  1  "Kneecrusher,  who  has  Magic  of  " ; M  (  4 ) 

1 "Strength  of  ";S(4);M  and  Wisdom"1 "of  " 
; W  (  4 )  : RETURN 

420  PRINT "This  room  holds  the  dreaded" 

*  "  enemy  of  all  who  enter  the"1  "Castle,  W 
olving  of  Wolf  Glass"1 "with  Strength  of 
" ; S  (  5 )  ;  "  plus"  "'Wisdom  of  " ; W ( 5 )  ;  "  and"1 
"Magic  of  " ; M  (  5 )  : RE TURN 

430 

440  VDU  26,12,15 

450  PRINT* "You  have  stumbled  on  to  the 

ii 

460  PRINT"marshy  mud  surrounding  the" 
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470  PRINT" Black  Lagoon  underneath  the" 
4  8  0  PRINT " cast le  .  To  escape  from  the" 
490  PRINT"castle  you  must  fight  The" 
500  PRINT "Guardian  of  the  Black  Lagoon 

ii 

510  PRINT 

520  PRINT " The  fight  must  involve  all" 
530  PRINT "attributes... and  you1 11  need 

ii 

540  PRINT "a  total  of  10  to  escape  ..." 

550  PRINT ' ' "Press  SPACE  BAR  to  continu 
e " : REPEAT  UNTIL  GE T= 3 2 : PRI NT ' ' 

560  IF  MONE  Y  >  0  THEN  PRINT"You  have  £" 
;MONEY;"  worth  of  gold" 

570  PROC_P AU  SE 

580  PRINT' "The  Guardians  attributes 
590  PRINT" [spc3]Magic  :  ";M(6) 

600  PRINT "Strength  :  ";S(6) 

610  PRINT"  Wisdom  :  ";W(6) 

620  PRINT' "Your  attributes  are 
630  PRINT" [spc3]Magic  :  ";M(7) 

640  PRINT "Strength  :  ";S(7) 

650  PRINT"  Wisdom  :  ";W(7) 

660  PRINT '' "Press  SPACE  BAR  to  continu 
e " : REPEAT  UNTIL  GE T= 3 2 : PRI NT ' ' 

670  IF  MONE  Y  < 1 0  0  THEN  930 

680  PRINT' "You  can  buy  attribute  point 


690 

PRINT 

"for 

'100  each 

ii 

700 

y  " 

PRINT 

"If 

you  want 

t  o 

buy 

any,  ente 

-L 

710 

PRINT 

"the 

initial 

o  f 

the 

attribute 

II 


720  PRINT "followed  by  the  number  of" 
730  PRINT "that  attribute  you  want." 

740  PRINT "Enter  1  N  1  when  you've  got" 
750  PRINT "all  the  attributes  you  want" 
760  PRINT' "Attribute  (M/S/W  or  N)  ?  "; 
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77  0  REPEAT  E  $  =  GE  T  $ 

7  80  IF  E  $  > " Z "  THEN  E $ =CHR$ ( AS C ( E $ ) - 3 

2) 

790  UNTIL  INSTR ( "NSWN" , E$ ) >0 


800 

IF 

E  $ 

=  "N" 

THEN 

PRINT "None" 

810 

IF 

E  $ 

=  "W" 

THEN 

PRINT "Wisdom" 

820 

IF 

E  $ 

=  I*  S  " 

THEN 

PRINT "Strength" 

830 

IF 

E  $ 

=  if  M  I? 

THEN 

PRINT "Magic" 

840 

IF 

E  $ 

=  M  N  " 

THEN 

930 

850 

INPUT 

"Amount  " 

,  AM 

860 

IF 

MONEY- 

AM<  1 

OR  AMC100  THEN  850 

870 

MONE Y= 

MONEY-AM 

880 

IF  E  $  = 

"M"  THEN  M ( 7 ) 

=M ( 7 ) + AM 

DIV100 

8  90 

IF  E  $  = 

"S"  THEN  S  <  7 ) 

=S ( 7 ) + AM 

DIV100 

900 

IF  E  $  = 

"W"  THEN  W ( 7 ) 

=W ( 7 ) + AM 

DIV100 

910 

PRINT ' 

" [spc3]Magic 

:  "  ;  M  (  7  )  ' 

" St ren 

gt  h  : 

"  ?  S  (  7  ) 

' "  Wisdom  : 

"  ?  W  (  7  ) 

920 

IF  MONE  Y  >  9  9  THEN  760 

930 

CL  S 

940 

II 

PRINT ' 

"Now  for  the 

U 1 1 ima t  e 

Test  . 

950 

PROC_PAUSE 

960 

PRINT ' 

1 "Press  RETURN  when  you’re" 

970 

PRINT" 

brave  enough 

to  fight 

II  • 
t 

980 

REPEAT 

UNTIL  GE  T=  3  2 

: PROC_PAUSE : CLS 

990 

PRINT ' 

"Fist,  Magic 

ii 

1000 

PRINT ' 

"You  :  " ; M ( 7 ) 

; TAB (20); 

" Guard 

i  an  : 

"  ;  M  (  6  ) 

1010  DIFF=ABS (M ( 7 ) -M ( 6 ) ) 

102  0  PRINT ' "The  difference  is  " ; D I F  F 
1030  IF  M ( 7 ) >M ( 6 )  THEN  PRINT" in  your  fa 
vour."  ELSE  PRINT"and  the  Guardian  has  t 
he  edge" 

104  0  PROC_P AU  SE 
1050  K=M ( 6 ) +M ( 7 ) 

1060  Cost=RND (K) 

107  0  PRINT  1 "This  round  carries  a  penalt 

y " 

1080  PRINT "of  ";Cost;  "  attribute  points 
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"  : P  ROC_P AUSE 
1090  PROC_EFFECTS 
1100  DIFF=M ( 7 ) -M ( 6) 

1110  IF  D I FF  >  5  THEN  D I FF  =  D I FF - 6 : GO TO  11 
10 

1120  IF  D I FF  < - 5  THEN  D IFF =D IFF  +  6 : GOT 0  1 
120 

1130  PROC_MELEE 

1140  IF  VICTORY  =  l  THEN  M ( 7 ) =M ( 7 )  +C o s t  :  P 
RINT"And  you've  won. . .and  so" 

1150  IF  VICTORY  =  0  THEN  M ( 7 ) =M ( 7 )  +C o s t  :  P 
RINT"And  you've  lost... and  so" 

1160  IF  M ( 7 ) < 1  THEN  M(7)=0 

1170  PRINT"now  have  ";M(7);"  Magic  poin 

t  s  .  .  .  " 

1180  PROC_P AU  SE 

1190  PRINT '' "Press  RETURN  when  you're  r 
e  ady  " 

1200  PRINT "to  continue  this  epic  strugg 
le"  ; 

1210  REPEAT  UNTIL  GET=13:CLS 

1220  PRINT 1 "Now  it's  time  for  a  match  o 

f  " 

1230  PRINT "Strength,  where  your  rating" 
1240  PRINT "is  ";S(7);"  and  the  Guardian 

'  s  " 

1250  PRINT "Strength  rating  is  ";S(6) 
1260  DIFF=ABS ( S ( 7 ) -S ( 6 ) ) 

1270  PRINT' "The  difference  is  " ; D I F  F 
1280  IF  S ( 6 ) > S ( 7 )  THEN  PRINT" in  the  Gua 
rdian's  favour"  ELSE  PRINT "in  the  your  f 
a  v  o  u  r  " 

12  90  PROC_P AU  SE 
1300  K=S  (6) +  S  (7) 

1310  Cost=RND (K) 

1320  PRINT' "The  round  carries  a  penalty 

II 

1330  PRINT "of  ";Cost; "  attribute  points 
. " : P  ROC_P AUSE 
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134  0  D I F  F  =  S  (7)  -S  (6) 

1350  PROC_EFFECTS 

1360  IF  D I FF  >  5  THEN  D I FF  =  D I FF - 6 : GO TO 1 3 6 

0 

137  0  IF  D I FF  < - 5  THEN  D IFF =D IFF  +  6 : GOT 0  1 
370 

1380  PROC_MELEE 

13  90  IF  VICTORY  =  l  THEN  S  (  7 ) = S  (  7 )  +C o s t  :  P 
RINT"You're  the  Victor,  and  so" 

14  00  IF  VICTORY  =  0  THEN  S  (  7 ) = S  (  7 )  +C o s t  :  P 
RINT"You're  the  Loser,  and  so" 

1410  IF  S ( 7 ) < 1  THEN  S(7)=0 

1420  PRINT"you  now  have  ";S(7);"  streng 
th  points" 

1430  PROC_P AU  SE 

1440  PRINT ' ' "Press  the  RETURN  key  when" 
1450  PRINT"you  have  stopped  trembling" 
1460  PRINT"enough  to  face  the  third," 
1470  PRINT "and  final  challenge 
1480  REPEAT  UNTIL  GET=13 
1490  PROC_PAU  SE : CLS 

1500  PRINT 1 "Now  it's  time  for  a  match  o 

f  " 

1510  PRINT " wi sdom,  where  your  rating" 
1520  PRINT "is  ";W(7);"  and  the  Guardian 

.  g  II 

1530  PRINT "wisdom  rating  is  ";W(6) 

1540  DIFF=ABS (W ( 7 ) -W ( 6 ) ) 

1550  PRINT ' "The  difference  is  " ; D I F  F 
1560  IF  W ( 6 ) >W ( 7 )  THEN  PRINT" in  the  Gua 
rdian's  favour"  ELSE  PRINT "in  your  favou 
r  " 

157  0  PROC_P AU  SE 
1580  K=W ( 6 ) +W ( 7 ) 

1590  Cos  t  =  RND  ( K ) 

1600  PRINT ' "Now,  this  final  challenge" 
1610  PRINT "carries  a  huge  penalty" 

1620  PRINT"of  ";Cost; "  attribute  points 
" : PROC_PAUSE 


212 


1630  DIFF=W (7) —  W (6) 

164  0  IF  D I FF  >  5  THEN  D I FF  =  D I FF - 6 : GO TO  16 
4  0 

1650  IF  D I FF  <  —  5  THEN  D IFF =D IFF  +  6 : GOT 0  1 
650 

1660  PROC_MELEE 
1670  PROC_EFFECTS 

1680  IF  VICTORY  =  l  THEN  W ( 7 ) =W ( 7 )  +C o s t  :  P 
RINT"And  you  defeated  the  Guardian!" 

1690  IF  VICTORY  =  0  THEN  W ( 7 ) =W ( 7 )  -C o s t  :  P 
RINT"And  the  Guardian  got  the  better" ' "o 
f  you  " ; N $ ;  "  !  !  " 

1700  IF  W ( 7 ) < 1  THEN  W(7)=0 
1710  PROC_P AU  SE 
172  0  CL  S 

1730  PRINT  1  1  "And  now,  at  the  end  of  the 

II 

1740  PRINT "final  battle,  your  position" 
1750  PRINT "is  :[spc3]Magic  ...  " ; M ( 7 ) 

1760  PRINT" [ spc6] Wisdom  ...  ";W(7) 

1770  PRINT" [ spc4 ] Strength  ...  ";S(7) 

1780  SUM=M(7) +S (7) +W (7) 

1790  PRINT ' ' "Well,  ";N$;",  your" 

1800  PRINT "attribute  total  is  " ; SUM 

1810  PROC_P AU  SE 

1820  IF  SUM< 1 0  THEN  1920 

1830  PRINT' "You  needed  at  least  10  poin 
ts" 

1840  PRINT"to  win  the  game,  and  you've" 
1850  PRINT "done  it,  " ; N$ ; " ! " : PROC_PAUSE 
1860  PRINT'' '''"You've  succeeded,  0  her 
o  of" 

1870  PRINT "these  dark  and  dangerous" 
1880  PRINT"times.  I  hereby  dub  thee" 
1890  PRINT "SIR  ";N$;"  ...  Arise..." 

1900  PROC_QUI T 
1910 

1920  PRINT " Un f ort unate ly ,  you  did  not" 
1930  PRINT "end  up  with  the  10  points" 
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1940  PRINT "you  needed,  so  it  is  all  ove 

r  " 

1950  PRINT ' "You  fail  to  escape  the  clut 
c  h  e  s  " 

1960  PRINT "of  the  Guardian  ....  ":PROC_ 
PAUSE 

1970  PRINT"You  fought  valiantly,  but  wi 
11" 

1980  PRINT"now  be  consumed  . . . . " 

19  90  PR0C_P AU  SE : PROC_PAUSE : PROC_EFFECTS 
: PRINT" [fsl]UHHHhhheer  rr[fs7] " :PR0C_PAU 
SE : PROC_EFFECT  S : PROC_PAUSE : PROC_QUIT 
2000 

2010  DEF  PROC_ACTION 
2020  PRINT 
2030  Q%=Q 

2040  D  =  4 : IF  MID  $  ( B$  ( Z )  ,  9 ,  1 ) = " 0 "  OR  MID$ 
(B$  (Z)  ,  9,  1) ="  "  THEN  D  =  1 : IF  RND  ( 1 ) > . 8  AN 

D  Z>1  THEN  PROC_CONTENTS : GOTO  2040 
2050  ACCEPT$="QNSEWFRL" 

2060  PRINT' "What  do  you  want  to  do  now 
?  "; 

2070  Z $ =FN_COMMAND ( ACCEP T $ ) : IF  Z$="Q"  T 
HEN  PROC_QUIT 

2080  IF  Z  $  =  " L "  THEN  PROC_ROOM : GOTO  2060 

2090  ACCEPT$="QNSEWFRL" 

2100  VDU  15 

2110  IF  Q%  >  0  AND  IN S TR ( " N SE W " ,  Z $ )  > 0  THE 
N  PRINT' "Te  "  ;  M  $  ( Q  )  ;  "  blocks  your  way  ou 
t . " : GOTO  2060 

2120  IF  D  =  4  AND  LEF T $  (  Z $ ,  1 )  < >  "  F  "  THEN  D 
=  0 : GOTO  2260 

2130  IF  LEFT$  (Z$,  1) = " F "  THEN  2230 
2140  IF  Z  $  =  " N "  AND  LEF T $  (  B $  (  Z )  , 2 ) =  "  0 0  " 
THEN  PRINT "No  exit.":GOTO  2060 
2  15  0  IF  Z$  =  "S"  AND  MID  $  ( B $  (  Z )  ,  3 , 2 ) =  "  0 0  " 
THEN  PRINT "There  is  no  door  that  way":G 
OTO  2060 
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2160  IF  Z  $  =  " E "  AND  MID$  (B$  (Z)  ,  5,  2)  ="00" 
THEN  PRINT "That  is  not  possible" : GOTO  2 
060 

2170  IF  Z$="W"  AND  MID$ (B$ (Z) , 7, 2) ="00" 
THEN  PRINT "You  can't  walk  through  walls 
! " : GOTO  2060 

2180  IF  Z  $  =  " N "  THEN  Z = VAL  (  LEF T $  (  B $  (  Z )  ,  2 
) ) : ENDPROC 

2190  IF  Z$  =  "S"  THEN  Z = VAL ( MID  $  ( B $  ( Z )  ,  3 , 
2  )  )  : ENDPROC 

2200  IF  Z  $  =  " E "  THEN  Z = VAL ( MID  $  ( B $  ( Z )  ,  5 , 
2) ) : ENDPROC 

2210  IF  Z$  =  "W"  THEN  Z = VAL  ( MID  $  ( B $  ( Z )  ,  7 , 
2) ) : ENDPROC 

2220  IF  LEFT$  (Z$,  1)  <>"F"  THEN  ENDPROC 
2230  IF  RIGHT$ (B$ (Z) , 1) = " 0 "  THEN  PRINT" 
There  is  nothing  to  fight  against !": GOTO 
2060 

2240  IF  Z  $  =  " F  L "  THEN  D  =RND ( 2 ) 

2250  IF  D= 1  THEN  PRINT"Which  direction 
?  " ; : ACCEPT$="NSEWQ" : Q%=0 : GOTO  2070 

2260  IF  D=2  THEN  PRINT"No!!  You  must  st 
and  and  f ight " : PROC_PAUSE 
2270  PRINT ' "The  ";M$(Q);"'s  Magic  is 
M ( D )  ' " St r engt h  is  " ; S  ( Q )  ;  "  and  Wisdom  i s 
"  ;  W  ( Q  ) 

2280  PRINT ' "Which  characteristic  will  y 
ou  fight "'"with  (M/S/W)  ? 

2290  REPEAT  Z$=GET$ 

2300  IF  Z$>"Z"  THEN  Z $ =CHR$ ( AS C ( Z $ ) - 3 
2) 

2  310  UNTIL  Z  $  = " M "  OR  Z$  =  "S"  OR  Z$="W" 
2  32  0  IF  Z  $  =  " M "  THEN  HUM=M ( 7 )  : MON=M ( Q )  : P 
RINT "Magic" 

2  330  IF  Z$  =  "S"  THEN  HUM= S  ( 7 )  : MON  =  S  ( Q )  :  P 
RINT "Strength" 

2340  IF  Z$="W"  THEN  HUM=W ( 7 ) : MON=W ( Q ) : P 
RINT "Wisdom" 

2350  DIFF=HUM— MON 
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2360  IF  D I FF  >  5  THEN  D I FF  =  D I FF - 6 : GO TO  23 
60 

2370  IF  D I FF  <  —  5  THEN  D IFF =D IFF  +  6 : GOT 0  2 
370 

2380  PRINT"The  fight  table  for  this  mel 
ee  reads  " ; DIFF 
2390  Cost=ABS (DIFF) +RND ( 6) 

24  00  PROC_P AU  SE 

2410  PRINT "The  melee  carries  a  cost/rew 
ard  of  " ; Cost 

2420  F I =RND ( 2 ) - 1 : PROC_P AU  SE : VDU  26,12 
24  30  IF  F I  =  0  THEN  PRINT" The  monster  att 
acks  and  the"' "fight  is  underway." 

2440  IF  F I = 1  THEN  PRINT"You  attack  firs 
t,  an  the"' "battle  is  joined  ..." 

2450  PROC_EFFECTS 
2460  ROLL=RND ( 6 ) 

2470  VICTORY=0 

2480  IF  ( D IFF  <  0  AND  ROLL >AB S ( D IFF )  )  OR 
( D IFF>  0  AND  ROLL<  =  DIFF)  OR  (DIFF  =  0  AND  R 
OLL<  4 )  THEN  VICTORY=l 
2490  IF  VICTORY=l  THEN  PROC_HUM_VICT 
2500  IF  VICTORY=0  THEN  PROC_MON_VICT 
2510  PROC_P AU  SE 

2520  PRINT' "After  that  fight,  your" 

2530  PRINT "attributes  are 
2540  PRINT" [spc3]Magic  :  ";M(7) 

2550  PRINT "Strength  :  ";S(7) 

2560  P  R I N  T " &  Wisdom  :  ";W(7) 

2570  PROC_PAUSE : PRINT 

2580  PRINT "And  those  of  the  ";M$(Q);"  a 
re:" 

2590  PRINT" [spc3]Magic  :  ";M(Q) 

2600  PRINT "Strength  :  ";M(Q) 

2610  P  R I N  T " &  Wisdom  :  ";W(Q) 

2620  B $  (Z) =LEFT $  (B$  (Z)  ,  8)  +"0"+MID$  (B$  (Z 
)  ,  10) 

2630  PRINT ' ' "Press  SPACE  BAR  to  continu 
e " ;  : RE  PEAT  UNTIL  GET=32:CLS 
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2640  PROC_CONTENTS : ENDPROC 
2650  DEF  PROC_HUM_VICT 
2660  IF  Q=  0  THEN  D  =  1 

2670  PRINT' "You  defeated  the  ”;M$(Q) 

2  680  IF  Z  $  =  " M "  THEN  M ( 7 ) =M ( 7 )  +Co s t : M  (  Q ) 
=M ( Q ) -Cost : IF  M ( Q ) < 1  THEN  M(Q)=0 
2  690  IF  Z  $  =  " M "  THEN  W ( 7 ) =W ( 7 )  +Co s t : W ( Q ) 
=W ( Q ) -Cost : IF  W ( Q ) < 1  THEN  W(Q)=0 
27  00  IF  Z$  =  "S"  THEN  S ( 7 ) = S  (  7 )  +Co s t : S  (  Q ) 
=S ( Q ) -Cost : IF  S ( Q ) < 1  THEN  S(Q)=0 
2710  ENDPROC 
2720  DEF  PROC_MON_VICT 

2730  PRINT' "The  ";M$(Q);"  defeated  you. 

n 

27  4  0  IF  Z  $  =  " M "  THEN  M ( Q ) =M ( Q ) +Co s t : M ( 7 ) 
=M ( 7 ) -Cost : IF  M(7)<1  THEN  M(7)=0 
2750  IF  Z$="W"  THEN  W ( Q ) =W ( Q ) +Co s t : W ( 7 ) 
=W ( 7 ) -Cost : IF  W ( 7 ) < 1  THEN  W(7)=0 
2760  IF  Z$  =  "S"  THEN  S ( Q ) = S ( Q )  +Co s t : S  (  7 ) 
=S ( 7 ) -Cost : IF  S ( 7 ) < 1  THEN  S(7)=0 
2770  ENDPROC 
2780 

2790  DEF  PROC_EFFECT  S 
2800  FOR  J=1  TO  RND(10)+1 
2810  CLS 

2820  ON  RND ( 6 )  GOSUB  2870,2880,2890,2 
920, 2930, 2940 

2830  FOR  P  =  1  TO  5 0 0 +RND  (  5 0 0 )  :  NEXT 
2840  PRINT' 

2850  NEXT  J 
2860  CLS : ENDPROC 

2870  PRINT  TAB (RND ( 30 ) , RND ( 24 ) ) ; "Bash  ! 

! ! ! " : FOR  P=1  TO  4 0 0 : NEXT : RETURN 
2880  PRINT  TAB (RND (25) , RND (24 ) ) ; "Aaaaaa 
rghhhh  !":FOR  P=1  TO  8 0 : NEXT : RE TURN 
2  890  PRINT  TAB (RND ( 35 )  , RND  (  24 )  )  ;  "Rip " ;  : 
FOR  P=1  TO  400 : NEXT : PRINT  TAB ( RND ( 3 4 ) , RN 
D ( 2 4 ) ) ; " Tear ! " : FOR  P=1  TO  4 0 0 : NEXT : RE TUR 
N 
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2  900  FOR  E  =  1  TO  2  0 : PRINT  TAB ( RND ( 3 6 )  )  ;  " 

! ! ! " : FOR  P=1  TO  6 0 : NEXT : NEXT : CL S : RE TURN 
2910  RETURN 

2920  FOR  E  =  1  TO  2  0 : PRINT  TAB ( RND  ( 3 0 )  , RN 
D (23) ) ; CHR$ (128+RND ( 7 @ F OR 
P  =  1  TO  8  0 : NEXT : NEXT  E : RETURN 
2  930 

2940  DEF  PROC_CONTENTS 
2950  REPEAT  K=1+RND(8) 

2  960  UNTIL  KOZ 

2970  IF  RIGHT$  (B$  (Z)  ,  1) <>"0"  THEN  END  P  R 
OC 

2  980  B$  (K) =LEFT  $  (B$(K),8)+MID$(B$(Z),9, 

1 ) +MID  $  (B$  (K)  ,  10 ) 

2990  B  $  (Z) =LEFT  $  (B$  (Z)  ,  8)  +"0"+MID$  (B$  (Z 
)  ,  10) 

3000  IF  RND ( 2 ) > 1  THEN  ENDPROC 
3010  PRINT 

3020  REPEAT  CT=RND(5) 

3030  UNTIL  (  ( CT<>2  )  OR  (POTIONOl)  )  A 
ND  (  (CT<>3)  OR  (SCR0LLO1)  )  AND  {  {  C  T  <  >  4  ) 
OR  ( SAFE < > 1 )  ) 

3040  ON  CT  GOSUB  3080,3200,3320,3420,30 
80 

3050  PROC_P AU  SE 
3060  ENDPROC 
3070 

3080  CHEST  =  CHEST  +  1 : IF  CHEST  =  5  THEN  RE  TU 
RN 

3090  PRINT "In  front  of  you  is  a  chest" 
3100  PRINT " 1 abe 1 led  with  a  large  #";CHE 
ST 

3110  PRINT' "Will  you  open  it  ? 

3120  Z  $  =FN_YN 

3130  IF  Z  $  =  " N "  THEN  RETURN 
3140  J=RND  (3)  -1 : PROC_P AU  SE 

3150  IF  J=  0  THEN  CAS H= 1 0 0 +RND  (  3 0 0 )  :  P R I N 
T " I t  holds  dragon's  gold  worth 

' " ; CASH : MO 
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NEY=MONEY+CASH : PROC_PAUSE : RETURN 
3160  IF  J=1  THEN  P  R I N  T " A  goblin  leaps  o 
ut,  stabbing  you ! " : L0SS=RND ( 6 ) :MONEY=MON 
EY-RND  (200)  : IF  MONEY < 1  THEN  MONEY  =  0 
3170  IF  J=2  THEN  P  R I N  T " A  strange  smoke 
comes  out"' "making  you  sleepy  and" 1 "sapp 
ing  your  magic  power.": L0SS=RND ( 6 ) : M ( 7 ) = 
M ( 7 ) -LOSS : IF  M(7)<1  THEN  M(7)=0 
3180  PROC_PAUSE : ENDPROC 
3190 

3200  POTION=l 

3210  PRINT "You  see  a  small  bottle  engra 
ved  " 

3220  PRINT"with  curious,  twisted  letter 

s  ..." 

3230  PRINT' "Will  you  drink  the  potion  w 
hich" 

3240  PRINT "you  can  see  inside  the  bottl 
e  ?"  ; 

3250  Z  $  =FN_YN 

3260  IF  Z  $  =  " N "  THEN  RETURN 
3270  PROC_P AU  SE 

3280  IF  RND ( 1 ) > . 6  THEN  PRINT"It  contain 
ed  a  potion  to"' "enhance  your  wisdom. " :W 
( 7 ) =W ( 7 ) +RND ( 6 ) : PROC_PAUSE : RETURN 
3290  PRINT "It  contained  a  potion  which" 
'"weakens  you  further  . . . " : PR0C_P AUSE : S ( 
7 ) =S (7 ) -RND ( 6) : IF  S(7)<1  THEN  S(7)=0 
3300  RETURN 
3310 

3320  SCROLL= 1 

3330  PRINT"You  see  a  papyrus  scroll." 
3340  PRINT' "Do  you  wish  to  read  it  ? 

3350  Z  $  =FN_YN : I F  Z$="N"  THEN  RETURN 
3360  IF  RND ( 2 ) > 1  THEN  PRINT"You  cannot 
understand" ' "then  language  , , , " :PROC_PAU 
SE : RETURN 

3370  PRINT"It  contains  a  Magic  spell.  D 
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o" 1 "you  wish  to  read  it  ?  "  ; 

3380  Z$=FN _ YN : IF  Z$="N"  THEN  RETURN 

3390  IF  RND ( 2 ) > 1  THEN  PRINT"It  was  a  be 
neficent  spell": PROC_PAUSE : M ( 7 ) =M ( 7 ) +RND 
( 6 ) : RETURN 

3400  PRINT "It  was  an  evil  spell" :PR0C_P 
AUSE : M ( 7 ) =0 : S ( 7 ) =S ( 7 )  DIV  2 : RETURN 
3410 

3420  SAFE= 1 

3430  PRINT "On  the  wall  is  a  small,  guil 
ded" 1 "safe,  and  infront  of"' "it  is  a  key 
..." : PR0C_P AUSE 

3440  PRINT "Do  you  wish  to  open  the  safe 
?  "  ; 

3450  Z  $  =FN_YN 

3460  IF  Z  $  =  " N "  THEN  RETURN 
3470  IF  RND ( 1 ) > . 3  THEN  3530 
3480  PROC_PAUSE : PRINT" A  shrieking  harpy 
flies  out "'"and  sinks  its  teeth  into"'" 
your  throat ! " 

3490  PR0C_P AU  SE 

3500  PRINT"You  grapple  with  it,  and  ... 

PR0C_P AUSE : PRINT" .. .  finally  wring  its 
neck.  " 

3510  S ( 7 ) =S ( 7 ) -RND ( 6 ) : IF  S(7)<1  THEN  S( 
7  )  =0 

3520  PROC_PAUSE : RETURN 

3530  PRINT "A  choir  of  angelic  voices  is 
"'"heard  . . . " : PR0C_P AUSE 
3540  PRINT ' "You  are  healed  and  refreshe 

d  ..." 

3550  M(7)=M(7)+2:S(7)=S(7)+2:W(7)=W(7)+ 

2 

3560  PROC_P AU  SE 
3570  RETURN 
3580 

3590  DEF  FN_YN 
3600  LOCAL  Z$ 

3610  REPEAT  Z  $  =  GE  T  $ 
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3620  IF  Z$>"Z"  THEN  Z $ =CHR$ ( AS C ( Z $ ) - 3 
2) 

3  63  0  UNTIL  Z  $  = " Y "  OR  Z$  =  "N" 

364  0  IF  Z  $  = " Y "  THEN  PRINT "Yes "  ELSE  PRI 
N  T  "  N  o  " 

3650  =Z$ 

3660  DEF  PROC_ROOM 
367  0  CL  S 

3680  ON  Z  GOSUB  3740,3830,3890,3940,403 
0,4110,4210,4340,4470,4530,4610,4700 
3690  IF  Z  $  = " L  "  THEN  3720 

3700  Q=0 : IF  RND(1)>.81  AND  Z>1  THEN  Q=R 
ND  ( 6) -1 : B  $  (Z) =LEFT  $  (B$  (Z)  ,  8)  +STR$  (Q) +MID 
$  ( B  $  (Z)  ,  10)  : P  ROC_MON  STER: ENDPROC 
3710  E$=MID$ (B$ (Z) , 9, 1) : IF  E$>"0"  AND  E 
$  < " 6 "  THEN  Q  =  VAL  ( E  $ ) 

3720  IF  Q>  0  THEN  PROC_MONSTER 
3730  ENDPROC 

3740  PRINT"You  are  at  the  entrance  to  a 
n" 

3750  PRINT "ancient,  forbidding- looking" 
3760  PRINT " cast le .  You  are  standing  on" 


3770 

II 

r 

3780 
ds  " 
3790 
3800 
3810 
3820 
3830 

II 

r 

3  84  0 
3  85  0 
3  8  60 

e" 

3  87  0 

t  .  " 


PRINT" the  North  side  of  the  castle 

PRINT" and  as  you  look  South,  towar 

PRINT "the  tumbling  structure,  you" 
PRINT "notice  the  entrance  portal" 
PRINT" is  open  and  unguarded" 

RETURN 

PRINT "You  are  in  the  entrance  hall 

PRINT "which  is  hung  with  rich" 
PRINT "fabrics.  Doors  lead  to  the" 
PRINT "East  and  the  South,  and  ther 

PRINT" is  an  open  portal  to  the  wes 
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3880  RETURN 

3890  PRINT" There  is  only  a  store  room." 
3900  PRINT" There  is  a  single  exit,  back 

ii 

3910  PRINT"the  way  you  came  in," 

3920  PRINT "to  the  West." 

3930  RETURN 

3940  PRINT "This  small  room,  which" 

3950  PRINT "features  an  ornate  sculpture 

ii 

3960  PRINT "of  the  moon  goddess  on  a" 
3970  PRINT "pede st al  in  the  North-east" 
3980  PRINT "corner,  is  the  Royal" 

3990  PRINT " P re s en ce  Chamber.  Doors  lead 

ii 

4000  PRINT "to  the  South,  the  West  and" 
4010  PRINT" to  the  East  ..." 

4020  RETURN 

4030  PRINT "The  Hall  of  Plots,  a" 

4040  PRI NT " wo oden -p ane 1 1 e d  room" 

4050  PRINT " redolent  with  whispers  and" 
4060  PRINT "rumours,  with  exits  to  the  E 
a  s  t  " 

4070  PRINT"and  to  the  South  from  which" 
4080  PRINT"comes  the  smell  of  sulphur  a 
nd" 

4090  PRINT "a  weird  chanting  ..." 

4100  RETURN 

4110  PRINT "You  have  entered  to  Wizard* s 

ii 

4120  PRINT "Den,  with  a  cauldron  bubblin 
g" 

4130  PRINT"over  a  fire  with  green  flame 
s  " 

4140  PRINT "in  the  South-west  corner." 
4150  PRINT "This  room  reeks  of  burning" 
4160  PRINT " sulphur ,  and  the  echo  of" 
4170  PRINT "ancient  spells.  You  can  leav 

e" 
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4180  PRINT" to  the  North,  the  South,  or 
to" 

4190  PRINT" to  the  East." 

4200  RETURN 

4210  PRINT "You  find  yourself  in  a  place 

ii 

4220  PRINT"which  seems  quiet  and  peacef 
ul  .  " 

4230  PRINT "This  is  the  castle ' s  Picture 

ii 

4240  PRINT "Gallery,  with  a  large  painti 
ng" 

4250  PRINT "of  the  Legendary  Guardian  of 

ii 

4260  PRINT "the  Black  Lagoon  to  the  left 
of" 

4270  PRINT "the  window  in  the  East  wall. 
Through " 

4280  PRINT "the  window  you  can  see  the  m 
ullioned" 

4290  PRINT "windows  of  the  Great  Hall  ac 
ross  the" 

4300  PRINT " Cont oured  Garden.  Exits  from 
the" 

4310  PRINT "Gallery  are  to  the  North  and 

ii 

4320  PRINT "to  the  East  ..." 

4330  RETURN 

4340  PRINT "This  is  the  most  magnificent 

II 

4350  PRINT"room  in  the  castle,  the  Grea 
t  " 

4360  PRINT "Hall,  with  massive  hammerbea 
m" 

4370  PRINT "roof.  You  can  leave  it  by  th 
e" 

4380  PRINT"double  doors  to  the  North  or 
by" 

4390  PRINT "those  to  the  East  behind  whi 
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ch" 

4  4  0  0 

4410 

est" 

4  4  2  0 
red" 

4  4  3  0 
ough" 
4  4  4  0 
4  4  5  0 
4  4  60 
4  4  7  0 
4  4  8  0 
s  1  " 

4  4  90 
4  500 
4510 
4  52  0 
4  530 

ii 

4540 

4550 

II 

4560 

n" 

4570 
4580 
4590 
T  "  a  n  d 
4  600 
4  610 
4  620 
4  630 
4  64  0 

II 

4  65  0 
4  660 

e" 


PRINT" you  can  hear  music  playing." 

PRINT "Through  the  windows  in  the  W 

PRINT "wall,  you  can  see  the  Contou 

PRINT "Garden,  and  beyond  that,  thr 

PRINT "windows  of  a  room  hung  with" 
PRINT "many,  many  fine  paintings." 
RETURN 

PRINT "Sounds  of  a  string  quartet " 
PRINT" fill  this  room,  the  Musician 

PRINT " Chambe r .  You  can  leave  by" 
PRINT "doors  to  the  West  or  by  one" 
PRINT "to  the  South  ..." 

RETURN 

PRINT "You  are  now  in  the  Sanctuary 

PRINT "of  Silence,  a  room  whose" 
PRINT "calmness  may  be  a  deception. 

PRINT "The  room  is  damp  and  cold.  A 

PRINT "exit  leaves  the  room  to  the" 
PRINT" North  "; 

IF  MID$  (B$  (10)  ,  3,  2)  ="12"  THEN  PR  IN 
one  leaves  to  the  South" 

PRINT : RETURN 

PRINT "This  must  be  the  Vestibule" 
PRINT "of  Sighs,  a  dank  and  clammy" 
PRINT "room  where  legend  says  the" 
PRINT "Guardian  of  the  Black  Lagoon 

PRINT "can  sometimes  be  heard  at" 
PRINT"night.  There  is  a  door  to  th 
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4670  PRINT "North  "; 

4680  IF  MID$ (B$ (11) , 3, 2) ="12"  THEN  PRIN 
T"and  one  leaves  to  the  South." 

4690  PRINT :RETURN 
4700  GOTO  440 

4710  IF  MID$  (B$  (Z)  ,  9,  1) <>"0"  THEN  Q  =  VAL 
(MID$  ( B  $  (Z)  ,  9,  1)  : PROC_MONSTER 
4720  RETURN 
4730 

4740  DEF  PROC_INI T 

47  50  AUTHOR$  =  "Ian  the  Brave" 

4760  Z%=RND ( -TIME ) 

4770  Z=1 
4780  MONEY=0 
47  90  CHE  S  T  =  0 
4800  POTION=0 
4810  SCROLL=  0 
4820  SAFE  =  0 

4830  DIM  B$ (12) ,M$ (6) , S (7) ,M(7) ,W(7) 
4840  INPUT ' ' "Please  enter  your  first  na 
me  " , N  $ 

4850  IF  N  $  = " "  THEN  N$=AUTH0R$ 

4860  CLS :PRINT ' ' "Hi  there,  ";N$ 

4870  PRINT' '"Please  stand  by  ... 

4880 

4890  FOR  T%= 1  TO  12 
4900  READ  B$ (T%) 

4910  L=RND (1) 

4920  Q$=STR$ (RND ( 5 ) ) 

4  930  IF  T%  > 1  AND  T%<11  AND  L<.63  THEN 
B$  (T%) =B$  (  T  % )  +RIGHT  $  (Q$,  1) 

4  94  0  IF  T%  > 1 0  OR  L>.63  THEN  B$(T%)=B$ 
(  T  %  )  +  "  0  " 

4950  NEXT 
4960  L=RND (1) 

4  97  0  IF  L< . 5  THEN  B $  ( 1 1 ) = " 0 9 1 2 0 0 0 0 0  " 

4  980  IF  L>= . 5  THEN  B $  ( 1 1 ) = " 0 6 1 2 0 0 0 0 0  " 

4  990 

5000  FOR  T  %  =  1  TO  6 
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5010  READ  M  $  ( T  % ) 

502  0  S  ( T  % )  =RND  ( 6 ) 

5030  M ( T  % ) =RND ( 6 ) 

504  0  S  ( T  % ) =RND ( 6 ) 

5050  NEXT 
50  60 

5070  S ( 7 ) =RND ( 6 ) 

5080  M(7) =RND (6) 

5090  W ( 7 ) =RND (6) 

5100  PROC_P AU  SE 

5110  ENDPROC 

5120  DATA  "000200000" 

5130  DATA  "00080304" 

5140  DATA  "00000002" 

5150  DATA  "00070205" 

5160  DATA  "00060400" 

5170  DATA  "05100700" 

5180  DATA  "04000600" 

5190  DATA  "02000900" 

5200  DATA  "00110008" 

5210  DATA  "06000000" 

5220  DATA  "09000000" 

5230  DATA  "00000000" 

5240 

5250  DATA  "Warlock", "Fearbringer", "Soul 
threat", "kneecrusher", "Wolving", "Guardia 
n" 

5260 

5270  DEF  PROC_P AU  SE 
5280  LOCAL  T% 

5290  T%  =  TIME  +  10  0 

5300  REPEAT  UNTIL  TIME>T% 

5310  ENDPROC 
532  0 

5330  DEF  FN_COMMAND ( ACC$ ) 

5340  LOCAL  COM$,X%,Y% 

5350  REPEAT 

5360  COM$=FN_UCASE (GET$ ) 

5370  UNTIL  IN S TR ( ACC $ , COM$ ) > 0 
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5380  IF  C  0  M  $  =  " Q "  THEN  PRINT "Quit" 

53  90  IF  C  0  M  $  =  " N "  THEN  PRINT"Go  North" 

54  00  IF  C  0  M  $  =  " S "  THEN  PRINT"Go  South" 

5410  IF  C  0  M  $  =  " E "  THEN  PRINT"Go  East" 

542  0  IF  C  0  M  $  =  " W "  THEN  PRINT"Go  West" 

54  30  IF  C  0  M  $  =  " F "  THEN  PRINT"Fight" 

54  4  0  IF  C  0  M  $  =  " R "  THEN  PRINT "Run  away":C 
0  M  $  =  "  F  L  " 

54  50  IF  C  0  M  $  =  " L "  THEN  PRINT"Look" 

5460  =C0M$ 

5470 

5480  DEF  FN_UCASE (CHARS$) 

5490  LOCAL  OUT$ , P SN% , CHAR 
5500  0  U  T  $  = " " 

5510  FOR  P  SN%  =  1  TO  LEN ( CHARS  $ ) 

5520  CHAR=ASC (MID$ ( CHARS $, P SN% , 1) ) 
5530  IF  CHAR>ASC"Z"  THEN  CHAR=CHAR-32 

5540  OUT$=OUT$+CHR$ (CHAR) 

5550  NEXT 
5560  =OUT$ 

5570  DEF  PROC_QUI T 

5580  PRINT . Press  SPACE  BAR  to  contin 

ue " ; : REPEAT  UNTIL  GET=32 
5590  VDU  26,12,15 

5600  PRINT 1  ' "Your  Adventures  are  at  an 
end.  " 

5610  PRINT ' "Waking  from  your  bed  and  lo 
oking" 

5620  PRINT"at  your  clock  you  have  to  de 
cide  " 

5630  PRINT"on  your  most  important  decis 
ion" 

5640  PRINT "of  the  night." 

5650  PRINT' "Do  you  wake  up  or  go  back  t 
o  sleep" 

5660  PRINT"and  do  further  battles  with 
the" 

5670  PRINT "depths  of  your  imagination" 
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5680  PRINT' "The  choice  is  yours  0  dream 
y  one." 

5690  PRINT"What  is  your  desire  ..."'"Aw 
ake  or  sleep  (A  /  S)  ? 

5700  REPEAT  K$=GET$ 

5710  IF  K  $  > " Z "  THEN  K$  =  CHR$  ( AS C ( K $ )  - 3 
5720  UNTIL  K$="A"  OR  K$="S" 

57  30  IF  K  $  =  " S "  THEN  RUN 
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3-D  Maze/Lodestar 


You  have  to  find  your  way  around  a  maze,  searching  for  the 
precious  Lodestar.  Throughout  the  game  you  see  the  view 
ahead.  You  are  told  which  doors  are  open  ahead,  to  the  left  and 
to  the  right.  As  well,  you  are  able  to  read  the  output  of  the 
'  Lodestaindicator'  which  gives  you  a  clue  as  to  how  close  you 
are  to  the  goal. 

If  you  find  you  are  lost  in  the  maze,  you  can  use  the  '  H(for 
'  help'  caption.  When  you  press  the  '  Hkey,  you'  Usee  a  view 
showing  where  you  are  in  the  maze  and  indicating  with  square 
'  dots'  the  path  you  have  travelled  so  far. 

The  Lodestar  can  be  in  one  of  a  number  of  positions,  and 
the  maze  changes  to  some  extent  from  game  to  game,  so  you 
will  take  a  long  time  to  master  the  program.  Start  off  slowly 
with  this  game,  until  you'  refamiliar  with  the  representation  of 
the  '  view'apd  you'  lbe  pleased  to  discover  how  good  you'  l|»et 
at  making  your  way  around  the  maze.  You  move  through  the 
maze  using  the  cursor  keys. 


10  REM  3-D  MAZE 
20 

30  ON  ERROR  GOTO  2140 
40  MODE  5 
50  PROC_INI T 
60  REPEAT 
70  PROC_NEWGAME 
80  PROC_HELP 
90  PROC_PLAY 
100  UNTIL  NOT  FN_AN OTHER 
110  END 
12  0 
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130  DEF  P  RO  C_P  LAY 
140  REPEAT  move=move+l 
150  N  =  0 


160 

COLOUR 

2 : PRINT  TAB  (  0 

,  8  )  ;  " 

Move 

ii  • 

t 

move;  "  . 

ii 

17  0 

IF  A$<> 

"h"  THEN  COLOUR  1: 

PRINT 

ii  Y 

ou  are 

facing 

II 

;  A$  ;  "  .  " 

180 

II  • 

COLOUR 

3 : PRINT  TAB  (  0 

,  13)  ; 

"North: 

r 

190 

IF  A% 

(D 

%+l, E%) =blank 

THEN 

PROC 

_0 

PEN  :  IF 

A  $  <  >  "  s 

II 

THEN  N  =  N  + 1 

200 

IF  A% 

(D 

%+l , E% ) =wa 1 1 

THEN 

P  ROC_ 

WA 

LL 

210 

PRINT 

1  II 

South :  " ; 

22  0 

IF  A% 

(D 

%-l, E%) =blank 

THEN 

PROC 

_0 

PEN  :  IF 

A  $  <  >  "  n 

II 

THEN  N  =  N  +  10 

230 

IF  A% 

(D 

%-l , E% ) =wa 1 1 

THEN 

P  ROC_ 

WA 

LL 

240 

PRINT 

1  II 

East  :  " ; 

250 

IF  A% 

(D 

%,E%+1) =blank 

THEN 

PROC 

_0 

PEN  :  IF 

A  $  <  >  "  w 

II 

THEN  N  =  N  +  10  0 

260 

IF  A% 

(D 

%, E  %  + 1 ) =wa 1 1 

THEN 

P  ROC_ 

WA 

LL 

270 

PRINT 

1  II 

West  :  "  ; 

280 

IF  A% 

(D 

%,E%-1) =blank 

THEN 

PROC 

_0 

PEN  :  IF 

A  $  <  >  "  e 

II 

THEN  N  =  N  +  10  0  0 

290 

IF  A% 

(D 

%, E  %  —  1 ) =wa 1 1 

THEN 

P  ROC_ 

WA 

LL 

300  COLOUR  1:PRINT'  "'Lodestar  indica 


t0riiiiireadS  "  ;  10  0*  (loadx-D%)  +  (loady-E%)  ; 

ii  ii 


310 

PROC_D I  SPLAY 

320 

W$=FN_GET_ 

COMMAND 

330 

0 

34  0 

IF  W  $  =  " h " 

THEN  P  RO C_HE  L P : 

:  GOTO 

43 

T  $  = A$ : PROC 

.CONVERT 

350 

IF  A  $  =  " n " 

AND  A%  (D%  +  1 ,  E% ) 

i  =wa 1 1 

T 

HEN  320 

360 

IF  A  $  =  " s " 

AND  A%  (D%-1 ,  E% ) 

i  =  w  a  1 1 

T 

230 


HEN  320 


37  0 

IF 

A  $  =  " e "  AND 

A% (D%, E%+1) 

=wa 1 1  T 

HEN  320 

380 

IF 

A  $  =  " w "  AND 

A% (D%, E%— 1) 

=wa 1 1  T 

HEN  320 

3  90 

IF 

A  $  =  " n "  THEN 

D  %  =  D  %  + 1 

400 

IF 

A  $  =  " s "  THEN 

D  %  =  D  %  —  1 

410 

IF 

A  $  =  " e "  THEN 

E  %  =  E  %  + 1 

42  0 

IF 

A  $  =  " w "  THEN 

E  %  =  E  %  —  1 

430 

B  % 

(D%, E%) =46 : IF  loadx=D% 

AND  loa 

dy  =  E  %  THEN 

FOUND  =  TRUE : 

GOTO  450 

4  4  0 

IF 

ABS  ( loadx-D 

% ) <3  THEN  IF  ABS ( 1 

oady-E% 

)  <3 

THEN  PRINT 

TAB (0,30)  ;  " 

You  are 

very  close  .  " 

450  UNTIL  FOUND 

460  ENDPROC 

470 

480  DEF  PROC_OPEN 

490  COLOUR  2 :PRINT"Open" :COLOUR  3 

500  ENDPROC 

510 

520  DEF  PROC_WALL 

530  COLOUR  1 :PRINT"Wall" :COLOUR  3 

540  ENDPROC 

550 

560  DEF  PROC_HELP 
570  A% (D%,E%)=42 
580  CL  S 

590  COLOUR  1 : PRINT  TAB ( 7 ) ; " NORTH " 

600  COLOUR  2 

610  FOR  B%=1 5  TO  1  STEP  -1 
62  0  FOR  N%  =  0  TO  1 
630  PRINT  " 

640  FOR  C%=1  TO  15 

650  IF  A% (B%, C%) =42  THEN  VDU  17, 

1,138+N%  ELSE  IF  B%(B%,C%)=46  AND  N%=0  T 
HEN  VDU  32  ELSE  IF  B%(B%,C%)=46  AND  N%=1 
THEN  VDU  17,3,129  ELSE  VDU  17,2,A%(B%,C 
%) 
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660  NEXT  C% 

670  PRINT 

680  NEXT  N  % 

690  NEXT  B  % 

700  COLOUR  1: PRINT  TAB ( 7 ) ; " SOUTH" ; 

710  move=move+5 
720  PROC_wait ( 600) 

7  30  CL  S 

7  4  0  A%  ( D  % , E  % ) =wa 1 1 
750  ENDPROC 
7  60 

770  DEF  PROC_NEWGAME 
7  80  RE  STORE : CL  S 
790  COLOUR  1 

800  PRINT  TAB ( 6, 10 ) ; " 3-D  MAZE" 

810  wa 1 1=ASC " [fsO] " 

820  blank=32 

830  FOR  B%=1  TO  15 

840  FOR  C%=1  TO  15 

850  A% (B%, C%) =wall:B% (B%, C%) =wall 

860  IF  C%>1  THEN  IF  B%>1  THEN  IF  C 

%  < 1 5  THEN  IF  B % < 1 5  THEN  IF  RND  ( 1 )  > .  9  THE 
N  A% ( B % , C%) =b lank 
870  NEXT  C% 

880  NEXT  B  % 

890  D  %  =  2 
900  E  %  =  2 

910  FOR  F  =  1  TO  69 
920  READ  B , C 
930  A% (B, C) =blank 
940  NEXT  F 
950  rand=RND(3) 

960  loadx=l 3 : 1 oady= 1 4 
970  IF  r and= 1  THEN  loadx=2 
980  IF  rand=2  THEN  loady=2 
990  A% ( loadx, loady) =blank 
1000  move=-5:A$="e":T$="e" : FOUND=FALSE 
1010  ENDPROC 
1020 
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1030  DATA  2,  2, 2, 3, 2, 4, 2, 5, 2, 6, 2, 7 

104  0  DATA  3,  7, 4, 7, 5, 7,  5,  6, 5, 5, 5, 4,  5,  3,  6 

,  3 

1050  DATA  7, 3, 7, 4, 7, 5, 7, 6, 7, 7, 7, 8, 7, 9, 9 
,  8 

1060  DATA  9,9,10,9,10,8,10,7,10,6,10,5, 
10,4 

1070  DATA  10,3,11,3,12,3,13,3,14,3,14,2 
,7,10 

1080  DATA  6,10,5,10,4,10,3,10,2,10,2,11 

,2,12 

1090  DATA  2,13,2,14,6,11,6,12,6,13,6,14 
,7,12 

1100  DATA  14,12,8,12,8,14,9,12,9,13,9,1 
4,10,12 

1110  DATA  11,9,11,10,11,11,11,12,12,9,1 
3,9,13,10 

1120  DATA  13,11,13,12,13,13,13,4,14,14 
1130 

1140  DEF  PROC_D I  SPLAY 


1150 

IF 

N=  0 

THEN  P=8 

1160 

IF 

A$  = 

II 

h" 

THEN  A$=T$ 

1170 

IF 

A$  = 

II 

n" 

AND  N= 1  OR 

A$ 

=  ii 

s 

II 

AND  N 

10  OR 

A  $  = 

"  e  " 

AND 

N  =  1 0  0  OR 

A$  = 

"  w 

II 

AND  N  = 

000  THEN 

P  =  5 

1180 

IF 

A$  = 

II 

n" 

AND  N= 1 0 1 

OR 

A$ 

= 

"e 

"  AND 

N=  1 1  0 

OR 

A$  = 

II 

w  " 

AND  N  =  1 0  0 

THEN 

p 

=  1 

1190 

IF 

A$  = 

II 

n" 

AND  N  =  1 0  0 

OR 

A$ 

= 

"  s 

"  AND 

N=  1 0  0  0 

OR 

A$ 

= 

"  e  " 

AND  N= 1 0 

OR 

A$ 

= 

"  w 

"  AND 

N= 1  THEN  P=2 


1200  IF  A  $  = " n "  AND  N  =  1000  OR  A$="s"  AND 
N=1 00  OR  A  $  = " e "  AND  N=1  OR  A$  =  "w"  AND  N 
=10  THEN  P=3 

1210  IF  ( A  $  = " n "  OR  A$="s")  AND  N  =  1100  0 
R  { A  $  = " e "  OR  A  $  = " w " )  AND  N  =  ll  THEN  P  =  4 
122  0  IF  A  $  = " n "  AND  N  =  1101  OR  A$="s"  AND 
N= 1 1 1 0  OR  A  $  =  " e "  AND  N  =  lll  OR  A$  =  "w"  AN 
D  N= 1 0 1 1  THEN  P  =  6 

1230  IF  A  $  = " n "  AND  N  =  1001  OR  A$="s"  AND 
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N= 1 1 0  OR  A  $  = " e "  AND  N=101  OR  A$="w"  AND 
N=1010  THEN  P=7 
1240  PRINT  TAB(0,0); 

12  50  IF  P  =  1  THEN  PRINT"  [ fsO ]  [  fs4 ]  [fs7 
]  "  '  "  [ f sO ]  [ f s4 ]  [ f  s  7 ]  "  '  "  [fsO]  [fs4]  [f 
s  7 ]  " '  "  [ f sO ]  [ f c4 ]  [ f s8 ]  [  f s8 ]  [  f cl ]  "'"[fs2 

] [ spc4 ] [ f c3 ] " 

1260  IF  P=2  THEN  PRINT "[ f s 0 ][ f s 0 ][ f s 0 ] [ 
f  s  0  ]  [  f  s  4  ]  "  '  "  [fsO]  [fsO]  [fsO]  [fsO]  [fs4]  " 

[fsO]  [fsO]  [fsO]  [fsO]  [ f  s  4 ]  [fsO]  [  f  c  6 

]  [ f  s  9 ]  [ f  s  9 ]  [ f  c  9 ]  [ f  s  2 ]  [ spc4 ]  [fc3]" 

127  0  IF  P  =  3  THEN  PRINT"  [ f s 5 ]  [  f s 0 ]  [  f s 0 ] 
[fsO]  [ f  s  0 ] " ' "  [  f  s  5 ]  [fsO]  [fsO]  [fsO]  [  f  s  0 ]  " 

[fs5]  [fsO]  [fsO]  [fsO]  [fsO]  "  '  "  [ f  c  8 ]  [  f  s 

9]  [ f  s  9 ]  [fc7]  [  f  s  0 ]  "  '  "  [  f  c  2 ]  [  spc4 ]  [fs3]" 
1280  IF  P  =  4  THEN  PRINT"  [ f s 5 ]  [  f s 0 ]  [  f s 0 ] 
[ f  s  4 ]  [fs5]  [fsO]  [fsO]  [fs4]  [  f  s  5  ] 

[fsO]  [fsO]  [fs4]  [fc8]  [fs9]  [fs9]  [fc9] 

"  ' "  [fc2]  [ spc4 ]  [ f  c  3 ]  " 

1290  IF  P=5  THEN  PRINT " [ f s 0 ] [ f s 4 ]  [fs5 
]  [  f  s  0  ]  "  '  "  [  f  s  0  ]  [  f  s  4  ]  [  f  s  5  ]  [  f  s  0  ]  "  '  "  [  f  s  0  ]  [ 

f  s  4 ]  [ f  s  5 ]  [ f  s  0 ]  "  '  "  [  f  s  0 ]  [fc4]  [  f  s  8 ]  [fs8]  [ 

f  c 5 ]  [ f  s  0 ]  " '  "  [ f  s 2 ]  [ spc4 ]  [ f  s  3 ]  " 

1300  IF  P  =  6  THEN  PRINT"  [fs6]  [fs7] 

"  [ f  s  6 ]  [ f  s  7 ]  [ f  s  6 ]  [  f  s  7 ]  [fcO 

]  [ f  s  8 ]  [ f  s  8 ]  [fcl]  " ' "  [ f  c  2 ]  [  spc4 ]  [fc3]" 
1310  IF  P=7  THEN  PRINT"  [fs6]  [fs5][fs 
0]"'"  [ f  s  6 ]  [ f  s  5 ]  [  f  s  0 ]  "  '  "  [  f  s  6 ]  [ f  s  5 ]  [ 

f  s  0  ]  "  '  "  [fcO]  [  f  s  8  ]  [  f  s  8  ]  [  f  c  5  ]  [  f  s  0  ]  "  '  "  [  f  c  2 
]  [ spc4 ]  [  f s3  ]  " 

1320  IF  P=8  THEN  PRINT "[ f s 0 ][ f s 0 ][ f s 0 ] [ 
fsO]  [fsO]  [  f  s  0 ]  "  '  "  [  f  s  0 ]  [fsO]  [fsO]  [fsO]  [fs 
0]  [ f  s  0 ] "  '  "  [  f  s  0  ]  [fsO]  [fsO]  [fsO]  [fsO]  [fsO] 
" ' "  [ f  s  0 ]  [ f  c  6 ]  [ f  s  9 ]  [ f  s  9 ]  [ f  c  7 ]  [fs0]"'"[fs2 
]  [spc4]  [  f s3  ]  " 

1330  ENDPROC 
1340 

1350  DEF  PROC_CONVERT 

1360  IF  W  $  =  " 7 "  OR  A  $  =  " h "  THEN  A$  =  T$ 
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137  0  IF  W $  =  " 6 "  AND  T $  = " n "  OR  W$="8"  AND 
T  $  =  " e "  OR  W  $  =  " 5 "  AND  T$="w"  THEN  A$="s" 
1380  IF  W $  = " 6 "  AND  T$="s"  OR  W$="8"  AND 
T $  =  " w "  OR  W $  =  " 5 "  AND  T $  = " e "  THEN  A$="n" 

13  90  IF  W $  = " 8 "  AND  T$="n"  OR  W$="5"  AND 
T $  =  " s "  OR  W $  =  " 6 "  AND  T $  = " w "  THEN  A$="e" 

14  00  IF  W $  =  " 5 "  AND  T $  = " n "  OR  W$="8"  AND 
T $  =  " s "  OR  W $  =  " 6 "  AND  T $  = " e "  THEN  A$="w" 
1410  ENDPROC 

1420 

1430  DEF  PROC_wait ( T ) 

1440  LOCAL  DUMMY 

1450  *FX  15 

1460  DUMMY=INKEY (T) 

1470  *FX  15 
1480 

1490  ENDPROC 

1500  DEF  FN_GET_COMMAND 

1510  KE  Y  $  =  GE  T  $ 

1520  IF  KE  Y  $  =  " H "  THEN  KE  Y  $  = " h " 


1530 

IF  KE  Y $  =  "  h  "  OR 

KE  Y  $ 

=  "  5  " 

OR 

KE  Y  $ 

=  "  6 

OR 

KEY  $  = 

"7"  OR  KE  Y  $ 

=  "8" 

THEN  = 

KEY  $ 

ELS 

1510 

1540 

1550 

DEF 

P  RO C_I N I T 

1560 

DIM 

A  %  (15,  15)  , B 

%  (15 

,  15) 

1570 

*FX 

4  2 

1580 

*KE  Y 

11  "H" 

1590 

*KE  Y 

12  "5" 

1600 

*KE  Y 

13  "8" 

1610 

*KE  Y 

14  "  6  " 

162  0 

*KE  Y 

15  "7" 

1630 

VDU 

23,0,10,32, 

•  s 

o 

•  s 

o 

0; 

164  0 

VDU 

2  3,  128  ,  &FF, 

&FF  , 

&FF  , 

&FF 

,  &FF  , 

&FF 

&FF, 

&FF 

1650 

VDU 

2  3,  12  9,  &18, 

&  1  8 , 

&  0  0  , 

&  0  0 

z  &  0  0  / 

&  0  0 

&  0  0  / 

&  0  0 

1660 

VDU 

2  3,  130  ,  &FF, 

&FE , 

&FC, 

&  F  8 

,  &F0, 

&  E  0 

&C0, 

&  8  0 
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1670  VDU  23, 131, &FF, &7F, &3F, &1F, &0F, &07 
,  &  0  3  ,  &  0 1 

1680  VDU  23, 132, &F0, &F0, &F0, &F0, &F0, &F0 
,  &F0,  &  F  0 

1690  VDU  23, 133, &0F, &0F, &0F, &0F, &0F, &0F 
,  &  OF , &  OF 

1700  VDU  23, 134, &10, &10, &10, &10, &  1  0 , &10 
,  &  1 0 , &  10 

1710  VDU  23, 135, &08, &08, &08, &08, &  0  8 , &08 
,  &  0  8  ,  &  0  8 

1720  VDU  23, 136, &00, &00, &00, &00, &FF, &00 
,  &  0  0  ,  &  0  0 

1730  VDU  23, 137, &FF, &FF, &FF, &FF, &FF, &00 
,  &  0  0  ,  &  0  0 

1740  VDU  23, 138, &00, &18, &3C, &3C, &3C, &18 
,  &  FF,  &FF 

1750  VDU  23,  139, &BD,  &BD,  &BD, &3C,  &24,  &24 
,  &  24, &  6  6 

1760  VDU  23, 144, &10, &10, &10, &10, &1F, &20 
,  &40,  &80 

1770  VDU  23, 145, &08, &08, &08, &08, &F8, &04 
,  &  0  2, &  0 1 

1780  VDU  23, 146, &01, &02, &04, &08, &10, &20 
,  &40, &80 

1790  VDU  23, 147, &80, &40, &20, &10, &08, &04 
,  &  0  2  ,  &  0 1 

1800  VDU  23,  148, &F0,  &F0,  &F0, &F0,  &FF,  &E0 
,  &  CO , &  8  0 

1810  VDU  23, 149, &0F, &0F, &0F, &0F, &FF, &07 
,  &  3  ,  &  0  1 

1820  VDU  23, 150, &FF, &FF, &FF, &FF, &FF, &E0 
,  &  C  0  ,  &  8  0 

1830  VDU  23,  151, &FF,  &FF,  &FF, &FF,  &FF,  &07 
,  &  0  3 , &01 

1840  VDU  23, 152, &0F, &0F, &0F, &0F, &1F, &20 
,  &  4  0 , &  80 

1850  VDU  23, 153, &F0, &F0, &F0, &F0, &F8, &04 
,  &  0  2  ,  &  0 1 

1860  ENDPROC 
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187  0 

1880  DEF  FN_ANOTHER 

18  90  CL  S 

1900  COLOUR  1 

1910  PRINT  TAB ( 2 , 3 ); "CONGRATULATIONS " 
1920  COLOUR  2 

1930  PRINT' ' "  You  have  found  the" 

1940  PRINT "precious  loadstar  in"; 

1950  PRINTjmove; "  moves." 

1960  PRINT'"  You  are  rewarded  by"; 

1970  PRINT"  being  given  another"; 

1980  PRINT"  mission  Again  to"; 

1990  PRINT"  search  for  another" 

2000  PRINT"  precious  loadstar!" 

2010  PRINT''"  Do  you  wish  to  take"; 

2020  PRINT "up  this  generous  !!!"; 

2030  PRINT "offer  ?  "; 

2040  *FX  15  1 

2050  REPEAT  KEY  $  =  GE  T  $ 

2060  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y $  = " N "  OR  K E Y $  =  " n " 

2070  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  =TRUE 

2080  COLOUR  1 

2090  PRINT "No  thanks!" 

2100  PRINT' '"Be  like  that  then!"' 

2110  *FX  4 
2120  =FALSE 
2130 

2140  *FX  4 
2150  MODE  7 

2160  REPORT : PRINT"  at  line  " ; ERL 
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Orpheus  in  the  Underground 


In  this  game,  you  are  in  a  system  of  twenty  caves  which  are 
joined  together  by  a  complex  maze  of  tunnels.  The  caves  are 
populated  by  a  most  unusual  crowd  of  people,  who  make  very 
specific  demands  upon  you.  These  demands  must  be  satisfied 
before  you  will  be  allowed  to  proceed. 

You  are  trying  to  get  to  cave  number  20.  As  the  game 
proceeds,  you'  rq>iven  the  chance  to  pick  up  objects  (such  as  a 
wand  or  gold)  which  will  come  in  useful  later  on  to  bribe  the 
occupants  of  the  caves.  You  can  only  carry  four  things  at  a 
time.  Therefore,  if  you  are  carrying  four  objects,  you  must  put 
one  down  before  you  can  pick  up  another. 

We  suggest  you  should  make  a  map  of  the  cave  intercon¬ 
nections  as  you  proceed.  In  contrast  to  some  so-called 
'  Adventure'programs,  you'  llfind  that  in  this  game  the  cave 
system  behaves  like  a  '  coherentreality'  by  remaining  stable 
during  the  game.  As  well,  if  you  put  something  down  in  a  cave, 
you'  lFind  it  is  still  there  if  you  later  return  to  the  same  cave. 
Although  the  cave  interconnections  change  from  run  to  run  of 
the  game,  they  do  not  change  during  the  course  of  a  game. 
Note  that  not  all  the  systems  generated  by  this  program  can  be 
solved. 

You  will  have  to  try  and  find  your  way  round  occupants 
which  demand  objects  you  do  not  have.  A  cave  containing 
'  magicWill  move  you  to  a  random  position  within  the  system. 
There  is  a  time  limit  of  fifty  moves.  Your  score  at  the  end  is 
related  to  how  few  moves  it  took  you  to  find  cave  number  20.  It 
can  take  quite  a  while  for  the  cave  system  to  be  built,  so  a  little 
patience  is  required  when  you  first  run  the  game. 

As  a  hint  to  help  you  play  this,  you'  lFind  that  generally  - 
but  not  always  -  tunnels  proceed  from  lower  numbers  to  higher 
ones,  so  that  higher  numbered  tunnels  are  more  likely  to  be 
close  to  20  than  are  ones  with  lower  numbers. 
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10  REM  ORPHEUS  IN  THE  UNDERGROUND 
20 

30  ON  ERROR  GOTO  2160 
40  MODE  7 

50  PROC_IN I T I AL I SE 
60 

70  REPEAT 
80  PROC_NEWGAME 
90  PROC_NOW_GET_OUT_OF_THIS 
100  UNTIL  NOT  FN_AN OTHER 
110  END 
12  0 

130  DEF  PROC_NOW_GET_OUT_OF_THIS 
140  X=0 : Y=1 
150  CL  S 

160  IF  FOOD  LEF  T  < 1  THEN  900  :ENDPROC 
170  PROC_LOOK 

180  IF  LEFT$ (F$ (Y) , 1) ="  "  THEN  460 

190  PRINT :PROCdelay (10) 

200  PRINT" [ fs4 ] Cave  contents  ";F$(Y 

) 

210  PRINT"[fs8] [fs2]Do  you  want  it  (Y/ 
N )  ?  [  f  s  9  ]  "  ; 

220  *FX  15  1 

230  REPEAT  KEY  $  =  GE  T  $ 

240  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y $  =  " N "  OR  K E Y $  =  " n " 

250  PRINT  KEY  $ 

260  IF  KE  Y  $  =  " N "  OR  KE  Y  $  =  " n "  THEN  460 
270  IF  LEFT$  (R$  (1)  ,  1)  ="  "  OR  LEFT  $  ( R$  ( 

2 )  ,  1 ) = "  "  OR  LEFT$  (R$  (3)  ,  1) ="  "  OR  LEFT  $ 

(R$ (4) , 1) ="  "  THEN  400 

280  PROCde lay  (10) 

290  PRINT " [ f s 3 ] You  are  carrying  too  mu 
ch [f s7  ]  " 

300  PRINT "[ f s 6 ] Which  item  do  you  wish 
to  drop  (1-4)  ?"; 
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310  *  F  X  15  0 

320  REPEAT  KEY  $  =  GE  T  $ 

330  UNTIL  KEY  $  >  =  "  1  "  AND  KEY$<  =  "4" 

34  0  S  =  VAL ( KEY  $ ) 

350  PRINT  KEY  $ 

3  60  T  $  =R$  (S) 

37  0  R$  ( S ) =F  $  (  Y ) 

380  F  $  ( Y  )  =  "  " 

390  GOTO  450 
400  FLAG=TRUE 
410  FOR  G= 1  TO  4 

420  IF  LEFT$ (R$ (G) , 1) ="  "  THEN  R$(G) 

=  F  $  ( Y )  : F  $  ( Y ) = "  "  : FLAG  =  G : G=4 

430  NEXT  G 

4  4  0  IF  FLAG>  0  THEN  G  =  FLAG 
450  PROC_LOOK 

460  IF  ASC (D$ ( Y) ) =32  THEN  650 
470  IF  D$  (Y) ="  [fsl]  ***  [ f  s  8 ] MAGIC [ f  s  9 ]  * 
*  *  [ f  s  7 ]  "  THEN  PROC_MAGIC : GOTO  160 
480  PROCde lay  (10) 

490  PRINT [fs6] There  is  a " ; FNvowe 1 ( D $ 
(Y));"  here  who  wants  [ f  s  7 ]  " 

500  PRINT" [fs6] " ;E$ (Y) ; "  to  let  you  pr 
e  cede " 

510  FOR  G= 1  TO  4 
520  F  LAG=  0 

530  IF  R$(G)=E$(Y)  AND  LEF T $  (  E $  (  Y )  ,  1 
)<>"  "  THEN  FLAG=G:G=4 

540  NEXT  G 

550  IF  FLAG>  0  THEN  G  =  FLAG 
560  IF  FLAG>  0  THEN  610 

570  PRINT" [fsl] You  must  return  to  " ; X 
580  PROCdelay (200) 

590  P=X : X=Y : Y=P 
600  GOTO  160 

610  PRINT" [fs6] and  luckily  you  can  obi 
ige . [f s7 ] " 

62  0  F  $  ( Y ) =R$  (G) 

63  0  R  $  ( G ) = "  " 
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640  PROCdelay (10) 

650  PRINT [fsl] Tunnels  to  ”;A(Y,1);", 
";A(Y, 2) ; ", ";A(Y, 3) ; "  and  ";A(Y,4) 

660  REPEAT  F  LAG  =  F AL  SE 
67  0  *  FX  15  0 

680  INPUT "[ f s 4 ] Where  do  you  want  to 
go  " , M  $ 

690  IF  LEFT$ (M$, 1) ="Q"  OR  LEFT$(M$,1 
) = " q "  THEN  PROCQUI T 
700  M=VAL(M$) 

710  FOR  G= 1  TO  4 

720  IF  A ( Y , G ) =M  THEN  FLAG=TRUE 

730  NEXT  G 

740  IF  M=Y  THEN  PRINT" [fs3] You  are  a 
1 ready  there!  [fs7]  " 

750  UNTIL  FLAG 
760  X=Y 
770  Y=M 

780  IF  Y  =  2  0  THEN  800 
790  GOTO  160 
800  CL  S 

810  PRINT' 'CHR$ (141) ; " [fsl] You  have  fo 
und  the  exit." 

820  PRINTCHR$ (141) ; " [fsl] You  have  foun 
d  the  exit." 

830  PRINT'"  [fs6] Your  score  is  " ; 1 0  0  *  ( 1 
OO-FOODLFT)  +2  *FOODLEFT 
840  FLAG  =  FAL  SE 
850  FOR  Z=1  TO  4 

860  IF  R  $  ( Z )  <  > "  "THEN  FLAG  =  TRUE 
870  NEXT 

880  IF  FLAG  THEN  PRINT' " [fs4] You  are  a 
ble  to  keep  your  treasure.  ELSE  PRINT 

" [fs4] Unfortunately  you  have  no  treasure 

i  « 

890  ENDPROC 

900  PRINT '  ' STRING$  (  40 ) 

910  PRINT [fsl] YOU  HAVE  RUN  OUT  OF  FO 
OD !  [  f s7 ]  " 
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920  PRINT'" [fs6] Your  last  place  of  res 
t  is  in  cave  " ; Y 
930  FLAG=FALSE 
940  FOR  Z=1  TO  4 

950  IF  R  $  ( Z )  <  > "  "  THEN  FLAG  =  TRUE 

960  NEXT 

970  IF  FLAG  THEN  PRINT "[ fs 4 ] Your  treas 
ure  is  not  much  good  now!"' 

980  ENDPROC 
990 

1000  DEF  PROC_LOOK 

1010  FOR  NL= 1  TO  5 : PRINT : PROCdelay ( 1 0 ) : 
NEXT 

102  0  PRINT  STRING$  (40,  "*"  ) 

1030  FOODLEFT=FOODLEFT-l 
104  0  PROCdelay  ( 10 ) 

1050  PRINT  ' " [fs2] You  have  enough  food 
to  last  another [fs7]  " 1 "  [f s2]  : IF  FOODLE 

F  T  >  1  THEN  PRINT; FOODLEFT;  "  goes.  [fs7]  "  E 
LSE  PRINT "go  only.  [fs7]  " 

1060  PROCdelay  ( 10 ) 

1070  PRINT '"[ f s 1 ] You  are  in  cave  [fs8] 

Y 

1080  PROCdelay ( 10 ) 

1090  IF  X>0  THEN  PRINT" [fsl] You  have  ju 
st  come  from  cave  ";X  ELSE  PRINT" [fsl] Yo 
u  are  about  to  start  on  your  travels." 

1100  IF  LEFT$  (R$  (1)  ,  1)  >"  "  OR  LEFT  $  ( R$  ( 

2  )  ,  1 ) > "  "  OR  LEFT$  (R$  (3)  ,  1) >"  "  OR  LEFT  $ 

( R  $  ( 4 )  ,  1 )  > "  "  THEN  PRINT '"[ fs3 ] You  are  c 

arrying: - " 

1110  FOR  Z=1  TO  4 

1120  IF  LEFT$ (R$ (Z) , 1) >"  "  THEN  PRINT 

"  [ f si ]  " ; Z;  "  -  [  f s4 ]  "  ; R$  (  Z )  : PROCDELAY (10) 

1130  NEXT 
1140  ENDPROC 
1150 

1160  DEF  PROCdelay (cc) 

1170  FINISH=TIME+cc 
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1180  REPEAT  UNTIL  TIME>=FINISH 

1190  ENDPROC 

1200 

1210  DEF  PROC_MAGIC 
1220  PROCdelay (10) 

1230  PRINT' 

1240  FOR  G 1 = 1  TO  2 
12  50  FOR  G=  5  3  TO  101  STEP  6 
1260  SOUND  1, -3MG-53)  ,  G,  1 

1270  NEXT 

1280  PRINT  CHR$  (141)  ;  "  [fs6]  ***  [f si]  [f 
s8]M[fs2]A[fs3]G[fs4]I[fs5]C[fs9]  [  f  s  6 ]  *  * 
*  [  f  s  7  ]  " 

1290  FOR  G= 1 0 1  TO  53  STEP  -6 

1300  SOUND  1, -3MG-53)  ,  G,  1 

1310  NEXT 

1320  NEXT 

1330  X=Y 

1340  Y=RND (9) +7 

1350  PROCdelay  (100) 

1360  ENDPROC 
1370 

1380  DEF  FNvowe 1 ( W$ ) 

1390  LOCAL  C  $ , L  % 

1400  L%=0 

1410  REPEAT  L%=L%+1 
1420  C$=MID$ (W$, L%, 1) 

1430  UNTIL  C$<>"  " 

1440  IF  C  $  =  " A "  OR  C  $  =  " E "  OR  C$  =  "I"  OR  C 
$="0"  OR  C$="U"  THEN  ="n  "+W$  ELSE  ="  "+ 

W$ 

1450 

1460  DEF  PROC_ALLOT 
147  0  FOR  E  =  1  TO  16 
14  8  0  F  =RND  ( 18 ) +1 
1490  D$ (F) =B$ (RND (20) ) 

1500  E$  (F) =C$  (RND  (20)  ) 

1510  E  =RND  (19) +1 

152  0  F$  (F) =C$  (RND  (20)  ) 
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1530  IF  RND  ( 1 )  >  0 . 8  THEN  D $  ( F ) = "  [ f s 1 ]  * 
**  [fs8] MAGIC [fs8]  ***  [fs7]  " 

1540  NEXT  E 
1550  ENDPROC 
15  60 

1570  DEF  PROC_F ILL 

1580  PRINT  TAB ( 0, 6) ; " [ f si ] [ f s8 ] D [f s2 ] A [ 
fs3]N[fs4]G[fs5]E[fs6]R[fs9] [fsl]-  FALL 
ING  ROCKS [ f s7 ] " 

1590  PRINT  TAB ( 17 ) ; " [ f si ] CAVE  FILLING! [ 
f  s  7  ]  " 

1600  FOR  D  =  1  TO  20 
1610  READ  B  $  (D) 

1620  NEXT  D 

1630  FOR  D  =  1  TO  20 
1640  READ  C$ (D) 

1650  NEXT 
1660  ENDPROC 

1670  DATA  UHLAN, AARDVARK, ODILO, AEROLITE 
, ALHAMBRA, AMY GD ALUS, EGRET, EEL, ELEUSIAN, E 
NZYME, IBEX, ICENI, IGUANA, ILMENITE, INCA, IN 
FULA, OCTOPUS, OKAPI, ORIOLE, OTTER 
1680  DATA  "a  SWORD", "a  MAGIC  WAND", "a  S 
ILVER  KEY", "a  HAMMER", "some  GOLD", "a  DEE 
P  BLUE  SAPPHIRE" ," some  DIAMONDS", "a  SWOR 
D " , "a  MAGIC  WAND", "a  DEEP  BLUE  SAPPHIRE" 

1690  DATA  "a  SILVER  KEY", "a  HAMMER", "so 
me  GOLD", "some  DIAMONDS", "a  SWORD", "some 
GOLD", "some  GOLD", "a  HAMMER", "a  SWORD", 
"a  MAGIC  WAND" 

1700 

1710  DEF  PROC_BUILD 

172  0  IF  GOES  <  > 1  THEN  CLS 

1730  PRINT  TAB (0,  6)  ;  "  [f si]  [f s8] D  [f s2 ] A [ 
fs3]N[fs4]G[fs5]E[fs6]R[fs9]  [fsl] - 
EXPLOSIVES [ f s7 ]  " 

174  0  PRINT  TAB ( 17 )  ;  "  [ f si ] CAVE  BUILDING! 

[  f  s  7  ]  " 
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17  50  FOR  B  =  1  TO  20 
1760  REPEAT 
1770  FOR  C= 1  TO  4 

1780  REPEAT 

1790  A(B, C) =B+INT (RND (7) — RND (6) 

) 

1800  UNTIL  NOT  (A(B,C)=B  OR  A  ( B 

, C) <1  OR  A (B, C) >20 ) 

1810  NEXT  C 

1820  UNTIL  NOT ( A (B, 1 ) =A (B, 2 )  OR  A ( B 

, 1 ) = A ( B , 3 )  OR  A (B, 2 ) =A (B, 4 )  OR  A(B,3)=A( 
B,  4)  ) 

1830  NEXT  B 
1840  ENDPROC 
1850 

1860  DEF  PROC_NEWGAME 
1870  GOE  S  =  GOE  S  + 1 
1880  FOR  C=0  TO  20 

1890  B  $ ( C ) = "  " : C  $  (  C ) = "  "  : D  $  (  C ) = "  ":E$ 

(  C  )  =  "  "  :  F  $  (  C )  =  "  " 

1900  IF  C<  5  THEN  R$(C)="  " 

1910  NEXT 

1920  RESTORE 

1930  PROC_BUILD 

1940  PROC_F ILL 

1950  PROC_ALLOT 

1960  FOODLEFT  =  5  0 

1970  VDU  23, 0, 10, 64, 0; 0; 0; 

1980  ENDPROC 
1990 

2000  DEF  PROC_INITIALISE 
2010  VDU  23, 0, 10, 32, 0; 0; 0; 

2020  PRINT  TAB (4, 2) ; CHR$ (141) ; " [fsl] ORP 
HEUS  IN  THE  UNDERGROUND [ f s 7 ] " 

2030  PRINT  TAB (4, 3) ; CHR$ (141) ; " [fsl] ORP 
HEUS  IN  THE  UNDERGROUND [ f s 7 ] " 

2  04  0  GOE  S  =  0 

2  050  DIM  A (2 0 , 4 )  , B$  ( 20 )  , C$  ( 20 )  ,  D$  ( 20  )  ,  E 
$ (20) , F$ (20) , R$ (4) 
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2060  ENDPROC 
207  0 

2080  DEF  FN_ANOTHER 

20  90  PRINT '  ' CHR$  ( 14 1 )  ;  "  [ f si ] Do  you  wish 
to  play  again  (Y/N)  ?" 

2100  PRINT  CHR$  (141)  ;  "  [f s4] Do  you  wish 
to  play  again  (Y/N)  ?"; 

2110  *FX  15 

2120  REPEAT  KEY  $  =  GE  T  $ 

2130  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y  $  = " N "  OR  K E  Y  $  =  " n " 

2140  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  PRINT 
'"Yes  please" : =TRUE  ELSE  PRINT' "No  thank 
s " : =FALSE 
2150 

2160  MODE  7 : PRINT 

2170  IF  ERR= 1 7  THEN  PRINT"  [fs3]I  QUIT![ 
f  s  7 ]  " : END  ELSE  REPORT : PRINT"  at  line  ";E 
RL : END 
2180 

2190  DEF  PROCQUIT 

2200  PRINT'"  [ f  s  3 ] D  o  you  really  want  to 
quit  (Y/N)  ?"; 

2210  *FX  15 

2220  REPEAT  KEY  $  =  GE  T  $ 

2230  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " y "  OR  KE 
Y $  =  " N "  OR  K E Y $  =  " n " 

2240  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  PRINT 
'"[ f si ] CHICKEN ![ fs7 ]": END  ELSE  PRINT" [fs 
1 ] NO [ f s7 ] " : ENDPROC 
2250 

2260  REM  the  end 
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Nuclear  Fallout 


The  scenario  for  this  game,  written  by  Tim  Rogers,  is  not 
particularly  pleasant.  Your  city  is  the  target  for  a  number  of 
nuclear  bombs,  and  your  job  is  to  protect  as  many  people  as 
you  can  from  the  nuclear  blast.  If  you  have  strong  objections  to 
the  basic  idea  behind  this  game,  you  could  still  use  the  new 
framework  to  produce  a  game  of  your  choice,  protecting  a  toy 
factory  from  an  invasion  of  wicked  gnome-missiles  or  whatever 
you  like. 

The  game  fits  into  the  general  '  Kingdoms'category,  that 
class  of  computer  games  which  attempts  to  model  reality  in 
some  way.  These  programs  expect  you  to  make  decisions  about 
the  expenditure  of  limited  resources  in  order  to  acquire  items 
which  are  needed  for  the  continued  existence  of  your  city, 
country  of  planet. 

In  this  case,  your  resource  is  money,  and  you  need  to  buy 
as  much  shelter  as  you  can,  in  order  to  save  the  maximum 
number  of  people.  This  analysis  of  the  game  suggests  that  any 
scenario  requiring  you  to  buy  a  single  resource  to  achieve  a 
specific  aim  could  be  slotted  into  the  framework  of  this 
program.  Essentially,  all  you  would  need  to  change  would  be 
the  print  statements. 

The  idea,  then,  is  to  protect  as  many  people  as  you  can 
from  a  nuclear  blast.  You  start  off  with  an  amount  of  money 
which  steadily  increases  as  the  game  progresses.  You  must 
decide  whether  to  buy  shelter  and  use  up  most  of  your  money, 
or  to  save  it  in  order  to  buy  the  largest  possible  area  of  shelter 
later  on.  The  only  problem  with  this  latter  idea  is  that  a  nuclear 
attack  could  be  launched  when  you  have  no  shelter  at  all.  And 
if  you  have  no  shelter,  there  will  be  no  survivors. 

In  most  Kingdom-type  games,  the  ruler  is  assassinated, 
impeached,  lynched  or  otherwise  disposed  of,  if  a  certain 
proportion  of  the  people  in  his  or  her  care  die,  whether  the 
deaths  occur  from  famine,  plagues  of  rats,  attacks  by  muscle- 
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bound  Norsemen  in  long  boats,  or  -  as  in  this  case  -  from  a 
nuclear  blast.  If  more  than  half  your  city  is  wiped  out,  the 
hitherto  complacent  masses  (or,  at  least,  those  who  have 
survived)  will  rise  up  in  one  coordinated  movement  and  wipe 
you  and  your  family  out. 

You  must  balance  your  delay  in  spending  money  for  shelter 
against  the  fact  that,  in  this  game,  the  longer  you  delay,  the 
more  likely  a  nuclear  attack  becomes.  This  chance  increases 
and,  at  the  end  of  the  game,  it  is  close  to  one  in  one. 

Full  instructions  are  included  within  the  game. 
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=  =  =  =  =  =  =  =  =  [ f  s  7 ]  " 

2  4  0  FOR  L  %  =  0  TO  24 
2  5  0  VDU  31,0, L  % ,  131 

2  60  NEXT 

270  VDU  28,1,24,39,0 

280  PRINT  TAB  (3,10)  ; CHR$  ( 1  4 1 )  ;  "  [  f si ] Do 
you  require  instructions  ?  " 

290  PRINT  TAB  (3,11)  ; CHR$  ( 1 4 1  )  ;  "  [  f si ] Do 
you  require  instructions  ? " 

3  0  0  REPEAT  KE  Y  $  =  GE  T  $ 

310  UNTIL  KEY$  =  "Y"  OR  KEY$="N" 

32  0  PRINT  1  1  1 

33  0  IF  KEY$  =  ,,N"  THEN  ENDPROC 

34  0  CL  S 

350  PRINT  TAB  (0,1);"  [fs6]  Instructions: 

[  f  s  7  ]  " 

360  PRINT1"  You  are  in  charge  of  civil 
defence  for"; 

370  PRINT "a  local  authority  in  Britain 
during  a" 

380  PRINT "period  when  Nuclear  War  with 
another" 

390  PRINT "nation  is  likely.  It  is  your 
job  to" 

400  PRINT"decide  each  year  how  much  yo 
u  are  going"; 

410  PRINT "to  spend  on  nuclear  fallout 
shelters . " 1 

420  PRINT"  You  start  off  ith  a  populat 
ion  of" 

430  PRINT"10, 000  ,£10,000  in  cash  but 

no  shelters"; 

440  PRINT" (measured  in  cubic  metres)  i 
n  which  to" 

450  PRINT "protect  your  population."1 
460  PRINT"  Each  cubic  metre  of  shelter 
costs  £1." 

470  PRINT "The  money  you  do  not  spend  o 
n  shelters" 
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480  PRINTMhas  10%  interest  added  on. Yo 
u  have  to" 

490  PRINT M de c i de  whether  you  will  save 
up  your" 

500  PRINT" money  to  protect  the  populat 
ion  later" 

510  PRINT "or  protect  as  many  people  as 
you  can" 

520  PRINT"from  the  start. The  chances  o 
f  nuclear" 

530  PRINT "attack  increase  every  year." 

540  ENDPROC 

550 

560  DEF  PROC_Init ialise 
570  money=10000:population=10000 
580  shelters=0 :dead=0 :attacks=0 
590  year=0:revolt=FALSE 

600  PRINT  1  "[ fs 1 ] GOOD  LUCK  [  f s 6 ] P r e s s  an 
y  key  ti  play"; 

610  *FX  15  1 
62  0  dummy  =  GF  T 
630  CL  S 
640  ENDPROC 
650 

660  DEF  PRO C_Show_det ails 
670  year=year+l 

680  PRINT  TAB  (12,1)  ; CHR$  ( 1 4 1 )  ;  "  [  f s2 ]  YE 
AR  " ; y ear 

690  PRINT  TAB  (12,2)  ; CHR$  ( 1  4  1  )  ;  "  [  f s2 ]  YE 
AR  " ; y ear 

700  PRINT1"  [fcljpppppppppppppppppppppp 

pppp [f s7 ] " 

710  PRINT"  [ f  c 1 ]  5  [ f  s  7 ]  "  ;  TAB  (25);"[fcl]j 
[  f  s  7  ]  " 

720  PRINT"  [fcl]  5  [fs3] Chances  of  attack 
" ; 2 2 -year ; " : 1 " ; TAB (25);"[fcl]j[fs7]" 

730  PRINT"  [  f cl ]  5  [  f s7 ]  " ; TAB  (2  5)  ;  "  [fcl]  j 
[  f  s  7  ]  " 

7  4  0  PRINT"  [fcl]  [ chi  6  3 ]  [chl63]  [chl63]  [c 
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h 1 6  3 ]  [ chi  63 ]  [chl63]  [chl63]  [chl63]  [chl63] 

[ chi  6  3 ]  [ chi  6  3 ]  [chl63]  [chl63]  [chl63]  [chl6 
3]  [ chi  63 ]  [ chi  6  3 ]  [chl63]  [chl63]  [chl63]  [ ch 
163]  [ chi  6  3 ]  [ chi  6  3 ]  [chl63]  [chl63]  [chl63]  [ 
f  s  7  ]  " 


750 

PRINT 

"Population  :  " 

; population 

7  60 

PRINT ' 

"Shelter [spc4] 

: " ; shelters 

770 

PRINT ' 

"Money  [spc6] £  " 

;  money 

780 

PRINT ' 

"Dead[spc7] 

dead 

7  90 

PRINT ' 

"Nuclear" 

800 

PRINT 

"Attacks  [  spc4 ] 

: " ; attacks 

810 

ENDPROC 

820 

830 

DEF  P  ROC_C  alculate 

840 

REPEAT 

850 

PRINT  TAB ( 0, 22 ) ; SPC ( 45 ) ; 

860 

VDU 

7 

870 

INPUT  TAB (0, 22) ; " [fs6] How  much 

o  spend  on  shelters  '"spend 

880  UNTIL  NOT  (  ( mone y- s pe nd< 0 )  OR  (sh 
elters+spendcO ) ) 

890  money=money-spend 

900  shelters=shelters+spend 

910  money=money+INT (money/ 10+0 . 5) 

920  ENDPROC 
930 

940  DEF  PROC_Out  come 
950  CL  S 

960  IF  RND (22-year) =1  THEN  PROC_attack 
ELSE  PRINT [fsl] No  attack." 

970  ENDPROC 
980 

990  DEF  FN_anot her 
1000  CL  S 

1010  IF  revolt  THEN  PROC_revolt  ELSE  PR 
O  C_w i n 

1020  PRINT '''"[ fs8 ][ fs7 ] Another  Game  (Y 
/N)  ?"; 

1030  REPEAT  KEY  $  =  GE  T  $ 
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10  4  0  UNTIL  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " N " 

1050  CL  S 

1060  =(KEY$="Y") 

107  0 

1080  DEF  PROC_att  ack 
1090  VDU  26 

1100  att acks=attacks+l 
1110  SOUND  &10, -10, 7, 255 
1120  FOR  alt itude=0  TO  24 
1130  SOUND  &  1 1 , 0 , widt h ( alt it ude )  *  8 ,  0 
1140  PRINT  TAB (0, 24-altitude)  [fcl]  " 
; CHR$ ( 154 ) ; 

1150  PRINT  TAB (19-width (altitude) , 24- 
alt  it ude )  ; STRING$ (2  * widt h (altitude)  ,CHR$ 
(255)  )  ; 

1160  PROC_delay (altitude) 

1170  NEXT 

1180  SOUND  510,-10,6,20 
1190  PROC_delay  (200) 

1200  FOR  alt itude=0  TO  24 
1210  SOUND  &  1 1 , 0 , widt h ( alt it ude )  * 8 , 0 
1220  PRINT  TAB (0, 24-altitude)  [fs3]  " 
; SPC (38)  ; 

1230  PROC_delay (altitude) 

1240  NEXT 

1250  VDU  28,1,24,39,0 

12  6  0  pr ot e ct ed= INT (shelters/10  +  0 . 5) 

1270  PRINT' 1 ' " [fsl] Population  protected 
: " ; protected 

1280  ki 1 led=popul at i on-pr ot ect ed 
1290  PRINT ' "Number  killed  :";killed 
1300  dead=dead+killed 

1310  shelters=shelters-INT (shelters/10+ 
0.5) 

1320  PRINT Shelters  left  shelters 

1330  PRINT'"'  [fsl]  [fs8]Press  Any  Key  to 
Continue " ; 

134  0  *  F  X  15  1 
1350  dummy=GET 
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1360  IF  k i 1 1 e d/popu 1 at i on > 0  .  9  THEN  revo 
1 1  =  TRUE 

1370  population=population-killed 

13  8  0  CL  S 
1390  ENDPROC 
1400 

1410  DEF  P  ROC_r  e v  o 1 1 

1420  PRINT1  1  1  "  [ f s  6 ] More  than  half  the  p 
opulation  died  in" 

1430  PRINT" [fs6] the  blast  and  the  masse 
s  have  revolted"; 

1440  PRINT" [fs6] against  you." 

1450  ENDPROC 

14  60 

14  7  0  DEF  P  ROC_w i n 

1480  PRINT1 1 1 " [fs6] Well  done  ..." 

1490  PRINT ' " [fs6] You  have  managed  to  ge 
t  through  these" 

1500  PRINT" [fs6] troubled  times  with  ... 

ii 

1510  PRINT '"[ fs2 ]£"; money 

1520  PRINT'" [fs2]  shelters; "  cubic  me 
tres  of  shelter" 

1530  PRINT ' spc5 ] AND " 

1540  PRINT''"[fs2]  "/population; "  have 
survived . " 

1550  ENDPROC 
1560 

1570  DEF  PROC_delay (time) 

1580  TIME=0 

1590  REPEAT  UNTIL  TIME>=time 
1600  ENDPROC 
1610 

1620  DATA  14,10,7,5,4,3,2,2,1,1,2,2,4,8 
,10,14,16,17,17,17,14,12,8,4,2 
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Brain  Games 


Simple  Simon 


Now  you  can  improve  your  memory  and  have  fun  at  the  same 
time  with  this  program  which  emulates  the  'Simon'  hand-held 
toys. 

The  BBC  Micro  will  generate  an  ever-growing  sequence  of 
tones  and  colours  which  you  must  imitate.  You  use  the  cursor 
keys  to  repeat  the  sequence  which  the  computer  has  just 
played.  It  will  then  add  a  further  tone/colour  to  the  sequence, 
and  you  must  repeat  it  from  the  beginning. 


10  REM  SIMPLE  SIMON 

20 

30  MODE  2 

40  ON  ERROR  GOTO  1680 
50  PROC_IN I T I AL I SE 
60 

70  REPEAT 
80  PROC_SHOWOFF 
90  PROC_NEWGAME 
100  REPEAT 

110  PROC_GENERATE  SEQUENCE 

120  PROC_FOL LOW SEQUENCE 

130  UNTIL  WRONG  OR  CHEAT 

140  IF  WRONG  THEN  PROC_SHOWSEQUENCE 

150  UNTIL  NOT  FN_AN OTHER 

160 

170  MODE  7 
180  PROC_RE  STORE 
190  END 
200 

210  DEF  PROC_SHOWOFF 

22  0  *  F  X  15 

230  pre s s ed=FALSE 
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240  REPEAT 

250  FOR  actual=0  TO  7 
260  FOR  logical=3  TO  9  STEP  2 

270  VDU  19, logical, (actual+ (logi 

cal/2 ) )  MOD  8, 0, 0, 0 

280  NEXT  logical 

2  90  PROC_BUZZ  (1+ ( RND  (40) MOD  4 )  ,25) 

300  IF  NOT  INKEY(O)  THEN  pressed=T 

RUE 

310  IF  pressed  THEN  actual=7 

320  PROC_DELAY (25) 

330  NEXT  actual 

340  UNTIL  pressed 

350  VDU  19, 3, 1, 0, 0; 19, 5, 2, 0, 0; 19, 7, 3, 0 
,  0;  1,  9,  4,  0,  0; 

360  ENDPROC 
370 

380  DEF  PROC_DRAW 

390  VDU  19,  0, 7, 0, 0; 19, 1, 0; 0; 19, 3, 0; 0;  1 
9,5,0;0;19,7,0;0;19,9,0;0; 

400  VDU  29,512;512; 

410  PX%=0 :PY%=0 : CX%=50 : CY%=50 

420  FOR  A%  =  0  TO  90  STEP  9 

430  sin  =  SINRAD  ( A  % )  : cos=COSRAD  ( A% ) 


440 

X%  =  5  0  0  * 

s 

in  :  Y % 

=500*cos 

450 

GCOL 

i. 

1 

460 

MOVE 

0, 

0 

:  MOVE 

PX%, PY% : PLOT  85, X% 

,  Y  % 

47  0 

MOVE 

0, 

0 

:  MOVE 

-PX%, PY% : PLOT  85,- 

X%,  Y % 

480 

MOVE 

0, 

0 

:  MOVE 

PX%, -PY% : PLOT  85, X 

o\o 

>H 

o\° 

4  90 

MOVE 

0, 

0 

:  MOVE 

-PX%, -PY% :PLOT  85, 

-X% , — Y% 

500 

PX%=X 

%  : 

P  Y%  =  Y  % 

:X%=50+400*sin:Y%=5 

0+400*003 

510 

GCOL 

0, 

3 

:  MOVE 

-50,50: MOVE  -CX%,C 

Y  % : PLOT 

85,  -X 

%, 

Y 

% 

52  0 

GCOL 

0, 

5 

:  MOVE 

50, 50: MOVE  CX%,CY% 
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: PLOT  85, X% , Y% 

530  GCOL  0,7: MOVE  50,-50:MOVE  CX%,-C 
Y  % : PLOT  85, X%, — Y  % 

540  GCOL  0,9: MOVE  -50,-50:MOVE  -CX%, 
-CY  % : PLOT  8  5, -X% , - Y% 

550  CX%=X% : CY%=Y% 

560  NEXT  A% 

57  0  VDU  2  9, 0 ; 0 ; 5 
580  GCOL  0,  6 

590  MOVE  320, 544 : PRINT " S IMPLE " 

600  MOVE  352, 500 : PRINT " S IMON " 

610  VDU  4, 19, 3, 1, 0,  0;  19,  5,  2,  0,  0;  19,  7,  3 
,  0,  0; 19, 9, 4, 0, 0; 

620  ENDPROC 
630 

640  DEF  PROC_INITIALISE 
650  VDU  23, 0, 10, 32, 0; 0; 0; 

660  vol=-10:REM  sound  volume 
670  PROC_BUZZ ( 0, 500 ) 

680  PROC_DRAW 
690  max=l 9 

700  DIM  colour% (max) 

710  *FX  4  1 
720  *FX  11  0 
730  ENDPROC 
740 

750  DEF  PROC_DELAY (delay ) 

760  LOCAL  finishtime 
770  f in i s ht ime=T IME +de 1 ay 
780  REPEAT  UNTIL  T IME >= f in i s ht ime 
790  ENDPROC 
800 

810  DEF  PROC_NEWGAME 

820  WRONG=FALSE : CHEAT=FALSE 

830  end=0 

840  PROC_BUZZ (0, 1275) 

850  COLOUR  6 : COLOUR  129 
860  PRINT  TAB ( 13 , 1 ); "READY ! " 

87  0  REPEAT  UNTIL  G  E  T  $  =  " Y " 
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880  PROC_BUZZ (0, 0) 

890  COLOUR  128 

900  PRINT  TAB ( 13, 1 )  ; "  [spc6]  " 

910  ENDPROC 
92  0 

930  DEF  PROC_GENERATE  SEQUENCE 
940  current =0 
950  REPEAT 

960  IF  current=end  THEN  colour% (curr 
ent ) =1+ (RND ( 4 0 )  MOD  4) 

970  PROC_FLASH (colour^ (current) , 40) 
980  cur rent =current +1 

990  UNTIL  current>end 
1000  end=current 

1010  IF  current  >max  THEN  CHEAT  =  TRUE 

1020  COLOUR  6 : COLOUR  129 

1030  PRINT  TAB ( 17 , 1 ) ; end 

1040  ENDPROC 

1050 

1060  DEF  PROC_FOL LOW SEQUENCE 

1070  *FX  15  1 

1080  FOR  digit=0  TO  end-1 

1090  REPEAT 

1100  key=INKEY (500) 

1110  UNTIL  (key>=136  AND  key<=139) 

OR  key =TRUE 
1120  col  =  key- 1 3  5 

1130  IF  col<>colour% (digit )  THEN  WRON 
G  =  TRUE 

1140  IF  WRONG  THEN  digit=end-l 
1150  IF  NOT  WRONG  THEN  PROC_FLASH ( col 
,  30) 

1160  NEXT  digit 

1170  IF  WRONG  THEN  P ROC_BUZ Z ( 0 , 2 5 0 ) : P RO 
C_DELAY ( 300 ) 

1180  PROC_DELAY (50) 

1190  ENDPROC 
1200 

1210  DEF  PROC_SHOWSEQUENCE 
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1220  FOR  current=0  TO  end-1 

1230  PROC_FLASH (colour^ (current) , 30) 

1240  NEXT 

1250  PROC_DELAY (150) 

1260  ENDPROC 
1270 

1280  DEF  PROC_BUZZ (col, dur) 

12  90  IF  c  o 1 < 1  THEN  SOUND  &  1 1 0 , vo 1 ,  3 , du r 
/ 5 : SOUND  &111, 0, 101,dur/5:ENDPROC 
1300  SOUND  &12, vol, 48+ (12*col) , dur/5 
1310  ENDPROC 
132  0 

1330  DEF  PROC.FLASH (colour, delay) 

1340  VDU  1 9, 1+ ( 2 ‘colour ) , 0 ; 0 ; 

1350  PROC_BUZZ (colour, delay) 

1360  PROC_DELAY (delay ) 

1370  VDU  1 9 , 1 + ( 2  * co 1 our )  , co lour , 0 , 0 ; 
1380  PROC_DELAY (delay ) 

1390  ENDPROC 
1400 

1410  DEF  FN_ANOTHER 
1420  COLOUR  6 


1430 

FOR  out  = 

1  TO  2 

1440 

IF  CHEAT  THEN 

1500 

1450 

PRINT 

TAB ( 15 , 

0)  ; 

"You" 

14  60 

PRINT 

TAB ( 12 , 

1)  ? 

"finished" 

1470 

PRINT 

TAB ( 13 , 

2)  ; 

end-1;"  run"; 

14  80 

IF  end 

—  1 <  > 1  THEN 

PRINT " s " 

14  90 

GOTO  1510 

1500 

PRINT 

TAB ( 13 , 

0)  ; 

"CHEAT ! " 

1510 

PRINT 

TAB ( 14 , 

21) 

; "Would" 

152  0 

PRINT 

TAB ( 15 , 

28  ) 

;  "you" 

1530 

PRINT 

TAB ( 14 , 

29) 

; "like" 

1540 

PRINT 

TAB ( 12 , 

30  ) 

;  "to  play" 

1550 

PRINT 

TAB ( 12 , 

31) 

; " again  ? " ; 

15  60 

*  F  X  1  5 

1 

157  0 

IF  out 

=1  THEN 

REPEAT  key$=GET$ 

NTIL  k e y $  =  " Y "  OR  key$  =  "N" 
1580  COLOUR  128: COLOUR  0 
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1590  NEXT 

1600  IF  k  e  y  $  =  " Y "  THEN  =TRUE  ELSE  =FALSE 
1610 

1620  DEF  PROC_RE STORE 

1630  *  F  X  4 

164  0  *  F  X  12 

1650  *FX  15  0 

1660  ENDPROC 

1670 

1680  MODE  7 
1690  PROC_RE  STORE 

1700  REPORT : PRINT"  AT  LINE  " ; ERL 
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Mastercode 


This  clever  computer  implementation  of  the  ever-popular 
'  colourec|>egs  in  holes,  deduce  the  code'  game  is  now  ready  to 
challenge  your  wits.  Full  instructions  are  within  the  program. 


10  REM  Mastercode 
20 

30  MODE  7 
40  PROC_in i t 
50  REPEAT 

60  PROC_new_game 
70  REPEAT 
80  PROC_guess 

90  PROC_di splay 

100  UNTIL  correct  OR  guess%=10 

110  UNTIL  NOT  FN_anot her 
120  *FX  4 
130  END 
140 

150  DEF  PROC_init 

160  VDU  23, 0, 10, 32, 0; 0; 0; 

170  *FX  4  1 

180  DIM  play%  (9)  , comp% ( 9) , temp% (9) 

190  ENDPROC 

200 

210  DEF  PROC_new_game 
220  FOR  A%= 1  TO  9 

230  play% ( A% ) =-l : comp% ( A% ) =-l 
240  NEXT 
250  CL  S 

260  PRINT  TAB ( 12 , 0 ) ; CHR$ ( 141 ) ; " [ f si ] Ma 
s  t  er  code [ f  s  7 ]  " 

270  PRINT  TAB ( 12 , 1 ) ; CHR$ ( 141 ) ; " [ f si ] Ma 
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s  t  e  r code [ f  s  7 ]  " 

280  PRINT' CHR$  (141)  ;  "  [  f  s  3 ] Instructions 

•  II 

2  90  PRINT  CHR$  (141)  [fs3]  Instructions 

.  n  i 

300  PRINT"  [f s6]  [spc3]  [  [fs3]Moves  cur 
sor  to  the  left" 

310  PRINT" [fs6] [spc3] ]  [fs3]Moves  cur 
sor  to  the  right" 

32  0  PRINT"  [ f  s  6 ]  A  [  f s 3 ] &  [ f s 6 ] v [ f s 3 ] Chan 
ges  colour" 

330  PRINT" [ fs6 ] RETURN [ fs3 ] Enters  the  g 
u  e  s  s  " 

340  PRINT f s2 ] How  many  holes  (3-9) 

?  " ; 

350  REPEAT  H$=GET$ 

360  H%  =  VAL ( H  $ ) 

370  UNTIL  H%  >  2  AND  H%<10 
380  PRINT  H  $ 

390  FOR  A%= 1  TO  H% 

400  comp%  ( A  % ) =RND  ( 8 ) -1 

410  NEXT 
4  2  0  gue  s  s  %  =  0 
430  CL  S 

440  PRINT  TAB (7,  0)  ;  "  [ f s3 ] Maste r  code " ; T 
AB  (2  5,  1)  ;  "  [fsl] STATUS" 

450  FOR  A%= 1  TO  H% 

460  PRINT  TAB ( 2+2 *A%, 2 ) ; A% ; 

470  NEXT 
480  ENDPROC 
4  90 

500  DEF  PROC_gue  s  s 
510  guess%=guess%+l 

520  PRINT  TAB (0, 23) ; " [fsl]Move  ";guess 
%; " [f s3] Your  guess  ?"; 

530  PRINT  TAB (0,  l  +  2*guess%)  ;  "  [f si]  " ; gu 
e  s  s  %  ;  "  [  f  s  7  ]  "  ; 

540  P%=1 

550  FOR  A%= 1  TO  H% 


266 


560  play% ( A% ) =0 

570  VDU  31, 1+2*A%, l+2*guess%, 32, 32 
580  NEXT 
590  REPEAT 

600  PRINT  TAB (2+2*P%, 2+2*guess%) ; " A" 


610 
620 
630 
64  0 
650 
660 
670 
%)  -1 
680 
%  )  +1 
690 


K%  =  GE  T 

PRINT  TAB (2  +  2*P%, 2+2*guess%)  ;  "  " 

IF  K%  =  13  6  THEN  P%  =  P%-1 
IF  K%  =  1 3  7  THEN  P%  =  P%  +  1 
IF  P%=0  THEN  P%=H% 

IF  P%=H%+1  THEN  P%=1 

IF  K%  =  1 3  8  THEN  p 1 ay % ( P % ) =p 1 ay %  ( P 

IF  K%  =  13  9  THEN  p 1 ay % ( P % ) =p 1 ay %  ( P 

IF  play% (P%) =-l  THEN  play%(P%)=7 


700  IF  play% (P%) =8  THEN  play%(P%)=0 

710  PRINT  TAB (1+2*P%, l+2*guess%) ; 

720  IF  play% (P%) =0  THEN  VDU  32,32  EL 
SE  VDU  144+play%  (P%)  , 255 
730  UNTIL  K%=1 3 

740  PRINT  TAB (0, 2+2*guess%) ; SPC (39) ; 
750  PRINT  TAB (0,  23)  ;  SPC (39)  ; 

760  ENDPROC 
770 

780  DEF  PROC_di splay 

790  W%=0:V%=0 

800  FOR  A%= 1  TO  H% 

810  t emp% ( A% ) =comp% ( A% ) 

820  NEXT 

830  FOR  S  %  =  1  TO  H% 

84  0  IF  play% ( S % ) =comp% ( S % )  THEN  V%=V 
%  +  l:play% ( S  % ) =100: t emp%  (  S  % ) =50 
850  NEXT 
860  FOR  S%=1  TO  H% 

87  0  FOR  T  %  =  1  TO  H% 

880  IF  play% ( S  % ) =temp% ( T% )  AND  S%< 
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> T %  THEN  W%=W%  +  1 :temp% (T%) =89:play%  (T%)  = 
99 

8  90  NEXT  T  % 

900  NEXT  S% 

910  PRINT  TAB (22, l+2*guess%) ; STRING$ (V 
%,  "  [ f s2 ] 0"  )  ; STRING$ ( W% ,  "  [ f s 3 ] 0  "  )  ; 

920  IF  V%=H%  THEN  correct=TRUE  ELSE  co 
rrect=FALSE 

930  ENDPROC 

94  0 

950  DEF  FN_anot her 

960  PRINT  TAB (0,22) ; 

970  IF  correct  THEN  PRINT" [fsl] You  gue 
ssed  it  in  ";guess%;"  go ( e  s )  . "  ELSE  PRIN 
T" [f si] Sorry.  No  more  moves  allowed." 

980  PRINT ' "Another  Go  ?"; 

990  REPEAT  K$=GET$ 

1000  UNTIL  K $  =  " Y "  OR  K$  =  "N" 

1010  CL  S 
1020  = ( K $  = " Y "  ) 
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Barrage 


In  this  fine  two-player  game  you'  lFind  yourself  facing  a  great 
screen  display  of  a  barrage  in  the  form  of  a  mountain.  You'  re 
told  the  wind  speed  and  direction,  and  the  aim  of  the  game  is, 
of  course,  to  lob  shells  over  the  mountain  to  try  and  destroy 
each  other'  s  tanks. 


10  REM  BARRAGE 
20  MODE  1 

30  PROC_init ialise 
40  REPEAT 

50  PROC_init ialiseplay 
60  PROC_drawlandscape 
70  REPEAT 
80  REPEAT 

90  PROC_play 

100  UNTIL  hit 

110  PROC_scores 

120  UNTIL  destroyed 

130  UNTIL  NOT  FN_anot hergame 
140  END 
150 

160  REM  PROCedures 
170 

180  DEF  PROC_init ialise 

190  DIM  hght%  (1)  , kill%  (1)  , skill%  (1)  , ta 
nk% ( 1 )  , name  $ ( 1 ) 

200  VDU  19,0,4,0,0,0 
210  VDU  19,2,0,0,0,0 
220  VDU  19,3,2,0,0,0 

230  VDU  23,128,0,7,15,15,255,255,127,3 
1,  23, 129, 4, 200, 240, 240, 254, 255, 252, 248 

240  VDU  23,130,32,19,15,15,127,255,63, 
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31,  23,131,0,224,240,240,255,255,252,248 

2  50  VDU  23,  132, &40,  &A0,  &40, 0,  0,  0,  0,  0 
260  VDU  23, 133, -1, -1, -1, -1, -1, -1, -1, -1 
270  VDU  23, 0, 10, 32, 0; 0; 0; 

2  80  *  F  X  9  2 

2  90  *  F  X  10  2 

300  rnd=RND (-TIME) 

310  g=  9.81 
320  COLOUR  3 

330  PRINT Skill  level's"' 

340  RESTORE  1980 
350  FOR  level=l  TO  5 

3  60  READ  SKI LL  $ 

370  PRINT  level;")  ";SKILL$ 

380  NEXT 

390  FOR  player%=0  TO  1 
400  COLOUR  player%+l 

410  PRINT' "Player  ";player%+l;"'s  na 
me  :  "  ; 

420  INPUT" "name$ (player%) :name$ (play 
er%) =LEF  T  $ (name$  (player%)  , 10) 

430  IF  name$  (player% ) =  "  "  THEN  name? ( 
player% ) = "PLAYER  "+STR$ (player%+l) 

440  PRINT ' name $( p laye r% );"' s  skill  1 

evel  1-5 "'"  (novice  to  expert) 

450  REPEAT  KEY  $  =  GET  $ 

4  60  UNTIL  KE  Y  $  > " 0 "  AND  KEY$<"6" 

470  RESTORE  1980 

480  FOR  level  =  l  TO  VAL ( KEY  $ ) 

4  90  READ  SKI LL  $ 

500  NEXT 

510  PRINT  SKILL$ 

520  skill% (player%) =VAL (KEY$) 

530  NEXT 

540  PRINT '' "Press  SPACE  BAR  to  play"; 
550  REPEAT  UNTIL  GET=32 
560  COLOUR  128: COLOUR  1 
570  ENDPROC 

580  DEF  PROC_drawlandscape 
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590  VDU  26,16 

600  VDU  24, 0 ; 0 ; 127 9; 1023 ; 2 9, 0 ; 128 ; 

610  GCOL  0,3 

620  hght% (0) =RND (100) 

630  height=hght% ( 0 ) 

64  0  maxh  =  hght %  (  0 ) 

6  5  0  s t  ep=  3  0 

660  FOR  xcord=0  TO  1279  STEP  step 
670  MOVE  xcord, -128 

680  MOVE  xcord+s t ep , - 1 2 8 

690  PLOT  8 5 , xcord, height 

700  IF  xcord>minx  AND  xcordcmidx  THE 
N  height=height+RND ( 4 0 ) 

710  IF  xcord>midx  AND  xcordcmaxx  THE 
N  height=height-RND ( 4 0 ) 

720  IF  heightcO  THEN  height=0 

730  PLOT  8 5 , xcor d+s t ep , he ight 

740  IF  height>maxh  THEN  maxh=height 

750  NEXT  xcord 

760  IF  height > 0  THEN  hght % ( 1 ) =height  E 
LSE  hght % ( 1 ) =0 

770  VDU  5 , 18 , 0 , 1 , 2 5 , 4 , t ank%  (  0 )  ; hght %  (  0 
) +32 ; 128, 129 

780  VDU  18, 0 , 2 , 2 5, 4 , t ank%  ( 1 )  ; hght % ( 1 )  + 
32 ; 130, 131, 4 
790  GCOL  0,2 
800  ENDPROC 

810  DEF  PROC_init ialiseplay 
820  destroyed=FALSE 
830  minx=100+RND  (200) 

840  midx=540+RND (200) 

850  maxx=117 9-RND (200) 

860  tank% ( 0 ) =RND (minx-64 ) 

870  tank% (1) =maxx+RND (1215-maxx) 

880  kill% (0) =0 
890  kill% (1) =0 
900  f irst=RND ( 2 ) -1 
910  ENDPROC 
920  DEF  PROC_play 


271 


930  COLOUR  131 
94  0  hit  =FAL SE 
950  wind=RND (30) -15 
960  COLOUR  0 : VDU  28,0,31,39,28 
970  PRINT  TAB ( 9, 0 ) ; "WIND  SPEED  ";ABS(w 
ind) ; "  Kmh  " ; 

980  IF  wind<0  THEN  PRINT"WEST  " 

990  IF  wind>  0  THEN  PRINT "EAST  " 

1000  IF  wind=0  THEN  PRINT "  [ spc 6 ]  " 

1010  VDU  28,0,31,39,29 
1020  FOR  player%=f irst  TO  1 
1030  fir st =0 

1040  REPEAT 

1050  CLS : COLOUR  player%+l 

1060  VDU  5, 18, 0, 1, 25, 4, tank%  (0)  ; hgh 

t% (0) +32 ; 128, 129, 18, 0, 2, 25, 4,tank% (1) ; hg 
ht  % (1) +32; 130, 131, 4 

1070  PRINT  name $( p lay er% s  go." 

1080  INPUT"Angle  of  elevation  10 [fs 

4 ] - 6  9 [ f  s  4 ]  : " ANG 

1090  UNTIL  ANG>  9  AND  ANG<70 

1100  ANG=RAD (ANG) 

1110  VDU  28,0,31,39,31 
1120  REPEAT 

1130  INPUT" Velocity  1-19  kmh  :";VEL 

1140  UNTIL  VEL>  0  AND  VEL<20 

1150  PRINT "Velocity  1-19  kmh  :";VEL; 
1160  VDU  28,0,31,39,29 
1170  VEL=VE  L  *  1 0 

1180  X1%=FNX (ANG, VEL, . 1, player%) 

1190  Y1%=FNY (ANG, VEL, . 1, player%) 

1200  of f set=0 

1210  GCOL  0,1 
1220  T IME= 1 0 
1230  REPEAT 

1240  X%=FNX (ANG, VEL, TIME/50, player% 

) 

1250  Y  %  =  FNY (ANG, VEL, TIME/50, player% 
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1260  IF  SGN (midx-X%) =SGN (wind)  OR  Y 

%>=maxh  THEN  o f f s e t = o f f s e t + ( wi nd/ 1 0 ) 

127  0  X%  =  X%  +  of  f  s  e t 

1280  SOUND  &11, -10, Y%DIV4, 5 

1290  PLOT  71, Xl%, Yl% 

1300  X1%=X% : Y1%=Y% 

1310  C%=POINT (X%, Y%) 

1320  PLOT  69, X%, Y% 

1330  UNTIL  X%<0  OR  X%>1280  OR  (C%<> 

0  AND  Y%  < 1 2  0  0 ) 


1340 

GCOL  0,3: 

PLOT  69, X 

%,  Y % 

1350 

SOUND  &10 

,-10,6,10 

1360 

FOR  Y 1 %= Y 

%  TO  maxh 

STEP  4 

137  0 

C%=POINT (X%, Y 1 % ) 

1380 

IF  C%=1 

OR  C%=2 

THEN  hit =TRUE : 

Yl%=maxh 

1390 

IF  C%=0 

THEN  Y 1  % 

=maxh 

14  00 

NEXT 

1410  IF  (C%=1  AND  player%=l )  OR  (C%=2 
AND  player%=0 )  THEN  hit=TRUE 
1420  IF  ( X%  Cmidx  AND  Y%<  =  hght %  ( 0 )  )  OR 
( X%  >midx  AND  Y% <  =  hght %  ( 1 )  )  OR  hit  THEN 
1540 

1430  VDU  18,0,0,5 

1440  REPEAT  C Y% =P O INT ( X% , Y% ) 

1450  REPEAT  CX%  =  P O INT  (  X% , Y % ) 

1460  MOVE  X%-16, Y%+28 : VDU  133 

1470  X%=X%+ (2 6*SGN (X%-midx) ) 

1480  UNTIL  CX%<>3 

1490  X%=X1% 

1500  Y%=Y%+32 

1510  UNTIL  C Y % < >  3 

152  0  VDU  4 
1530  temp=player% 

1540  IF  hit  THEN  player%=l 

1550  NEXT 

1560  player%=temp 

1570  ENDPROC 

1580  DEF  PROC_scores 
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15  90  VDU  1 9, 1+ (  (player%  +  l )  MOD  2), 12,0, 
0,  0 

1600  S%=1 : V%=0 
1610  REPEAT  V%=V%+S% 

1620  SOUND  0, -V%, 6, 2 
1630  IF  V%  =  1 5  THEN  S%  =  -1 
1640  UNTIL  V%=0 

1650  kill% (player%) =kill% (player%) +1 
1660  IF  ki 1 1 % ( p laye r % ) =s k i 1 1% ( pi ay er % ) 
THEN  dest royed=TRUE 

1670  IF  player%=0  THEN  VDU  19,2,0,0,0,0 
ELSE  VDU  19,1,1,0,0,0 
1680  CL S : COLOUR  player%  +  l 

1690  PRINT  name$ (player% ) ; "  has  scored 
a  hit."; 

1700  FOR  person%=0  TO  1 
1710  COLOUR  person%+l 

1720  PRINT  ' name$ (person) :  ";TAB(11 

)  ; kill% (person%)  ;"/";skill%(person%)  ; 
1730  NEXT 
1740  *FX  15  1 
1750  de 1 ay  =  GE  T 
1760  ENDPROC 
1770  DEF  FN_anot hergame 

1780  IF  skill% (player% ) <5  THEN  skill%(p 
layer%) =skill%  (player%) ~ 1 
1790  CL  S 

1800  PRINT  "Do  you  wish  start  another 
battle 

1810  *FX  15  1 
1820  REPEAT 
1830  KEY  $  =  GET  $ 

184  0  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

1850  PRINT  KEY  $ 

1860  IF  KE  Y  $  =  " N "  THEN  =FALSE 
1870  PRINTname$ (player% ) ; " ' s  skill  leve 
1  is  now  " ; skill% (player% )  '  "ie 
1880  RESTORE  1980 

1890  FOR  level=l  TO  s k i 1 1 % ( p 1 ay e r % ) 
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1  90  0  READ  S  K I L  L  $ 

1910  NEXT 
1  92  0  PRINT  S  K I L  L  $ 

1930  A=GET 
1  94  0  =  TRUE 

1950  DEF  FNX ( ang , ve 1 , t ime , p 1 ay e r ) 

1  9  60  IF  player=0  THEN  =t a nk %  ( p 1 a y e r % )  + 5 
6+vel*time*COS(ang)  ELSE  =tank%  (player%) 
-  (vel*time*COS  (ang)  )  +8 
1970  DEF  FNY (ang, vel, time, player ) =hght% 
(player)  +28+ (vel*time*SIN  (ang)  -  (0 . 5*g*ti 
me  A  2  )  ) 

1980  DATA  Rubb i sh , Passable, Average , Go od 
, Brilliant 
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Hangman 


Now  you  can  play  the  '  guessthe  word  I'  nthinking  of,  before 
you  get  hanged'  game  against  the  BBC  Micro.  The  computer 
chooses  a  word  from  its  DATA  store  (from  line  890)  then 
challenges  you  to  guess  it  before  a  complete  picture  of  a  hanged 
man  is  drawn  using  PROC_HANG  (from  line  660).  Once 
you'  vqalayed  a  few  hundred  games  with  this  program,  and  you 
know  the  words,  change  them  to  a  vocabulary  of  your  own 
choice.  Make  sure  you  list  of  words  ends  with  '  _999'a$  you 
can  see  in  line  980. 


10  REM  HANG  MAN 

20 

30  MODE  7 
40  PROC_INI T 
50  REPEAT 

60  WORD$=FN_WORD (RND (W% ) ) 

70  PROC_DISP (WORD$ ) 

80  REPEAT 
90  P  ROC_GUE  S  S 

100  UNTIL  GOT  OR  HUNG 

110  PROC_RESULTS 
120  UNTIL  NOT  FN_AN OTHER 
130  END 

140  DEF  PROC_INI T 

150  PRINT  TAB (15, 2) [fsl] HANGMAN [fs7] 

It  I  I 

160  PRINT '  fs8 ][ fs2 ] COUNTING  WORDS[f 
s  9  ]  "  ; 

170  W%  =  0 

180  REPEAT  READ  WORD$ 

190  IF  WORD$<>"-999"  THEN  W%=W%+1 
200  Z=POS : PRINT  ; W% ; STRING$ (POS-Z , CH 
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R$ (8)  )  ; 

210  UNTIL  WORD$="-999" 

220  ENDPROC 

230  DEF  FN_WORD  ( P  % ) 

2  4  0  LOCAL  C  % , CHO  SEN  $ 

250  RESTORE  890 
260  FOR  C%=1  TO  P% 

27  0  READ  CHO  SEN  $ 

280  NEXT 

290  ALP$="ABCDEFGHI JKLMNOP QRS TUVWXY Z " 
300  =CHOSEN  $ 

310  DEF  PROC_DISP (OUT$) 

320  LOCAL  P%,C$ 

330  CL  S 

340  PRINT  TAB (0, 0) ; " [fs3]Not  used: [fs2 
]  " ; ALP  $ 

350  PRINT  TAB ( 0, 2 );"[ fs3 ] Guesses  :[fs2 
]  0  " 

360  PRINT  TAB ( 0,  4 )  ;  "  [ f s3 ] Wrong [ spc3 ]  :  [ 
f  s  2  ]  0  " 

370  FOR  P%  =  1  TO  LEN ( OUT  $ ) 

380  PRINT  TAB ( 14- (LEN (OUT$ )  DIV  2 ) +P 

%  ,  2  0  )  ; 

390  IF  MID$ (OUT$, P%, 1) =" "  THEN  PRINT 
"  "  ELSE  PRINT"-" 

400  NEXT 

410  PRINT  TAB (9, 23)  ; "  [fs6] Your  guess:  [ 
f  s  3  ]  "  ; 

420  GUE S S $ = S TRING$ (LEN (OUT$) , "  ") 

430  wrong=0 : GUESSES=0 

440  ENDPROC 

450  DEF  P  ROC_GUE  S  S 

460  LOCAL  KEY$ , P%, WRONG 

470  WRONG=TRUE 

480  PRINT  TAB (22,23) ; 

4  90  REPEAT  KEY  $  =  GE  T  $ 

500  IF  KE  Y  $  >  =  " a "  AND  KEY$<="z"  THEN 
KE  Y  $  =CHR$  (ASC  (KEY$)  -32) 

510  UNTIL  INSTR (ALP$, KEY$) <>0  AND  KE 
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Y  $  <  >  "  " 

52  0  PRINT  KEY  $ ; 

530  FOR  P%  =  1  TO  LEN (WORD  $ ) 

54  0  IF  KEY$=MID$  (WORD  $ , P  % ,  1 )  THEN  PR 
INT  TAB ( 14- (LEN (WORD$ )  DIV  2 ) +P % , 2 0 ) ; KE Y 
$ : GUES$=LEFT$ (GUESS$, P%-1) +KEY$+MID$ (GUE 
SS$,P%+1) :WRONG=FALSE 
550  NEXT 

560  ALP  $  =  LEFT$  (ALP$,  INSTR (ALP$, KEY$ )  -1 
)+"  "+MID$(ALP$,  INSTR (ALP$, KEY  $ )  + 1 ) 

570  PRINT  TAB (11, 0) ; ALP$ 

580  GOT= (WORD$=GUESS$ ) 

590  wr ong=wr ong-WRONG 
600  GUESSES=GUESSES+1 
610  HUNG= (wrong=10 ) 

620  PRINT  TAB ( 11 , 2 ); GUESSES 
630  PRINT  TAB ( 11 , 4 ) ; wrong 
640  IF  WRONG  THEN  PROC_HANG 
650  ENDPROC 
660  DEF  PROC_HANG 

670  ON  wrong  GOTO  680,690,700,710,720, 
730,740,750, 760, 770 

680  PRINT  TAB (10, 18) ;"======" :ENDPROC 

690  PRINT  TAB (10, 17) ; STRING$ (5, " | "+CHR 
$ (8) +CHR$ (11) ) ; : ENDPROC 

700  PRINT  TAB ( 10 , 12 );"=====": ENDPROC 

710  PRINT  TAB (14, 13) ; " | " :ENDPROC 
720  PRINT  TAB (14, 14) ; "O" :ENDPROC 
730  PRINT  TAB (14, 15) ; " ! " :ENDPROC 
740  PRINT  TAB (13, 15) ; "/" :ENDPROC 
750  PRINT  TAB (15, 15) ; :ENDPROC 
760  PRINT  TAB ( 13 , 1 6 );"/": ENDPROC 
770  PRINT  TAB ( 15 , 1 6 );"_": ENDPROC 
7  80  DEF  P  ROC_RE  SUL  T  S 

790  VDU  31,0,23,10,10,10,10,10,10,30,1 
1,11,11,11,11 

800  IF  GOT  THEN  PRINT" [fsl] You  got  it 
in  " ; GUE  S  SE  S ;  "  tries ENDPROC 

810  PRINT" [fsl] You  did  not  get  the  wor 
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d " ; : I F  INSTR (WORD$ , "  ")<>0  THEN  PRINT"s. 

They  were"  ELSE  PRINT". It  was" 

820  PRINT" [ fs3 ]"; WORD$ ;"[ fs2 ] You  made 

GUESSES;"  guesses." 

830  ENDPROC 

840  DEF  FN_ANOTHER 

850  PRINT'" [ fs6] Would  you  like  another 
try:"; 

860  REPEAT  KEY  $  =  GE  T  $ 

870  UNTIL  KEY$="Y"  OR  KEY$="y"  OR  KE 
Y  $  = " N "  OR  K E  Y  $  =  " n " 

880  IF  KE  Y  $  =  " Y "  OR  KE  Y  $  =  " y "  THEN  =TRUE 
ELSE  =FALSE 

890  DATA  ACCUMULATOR, ADDRESS, ALGORITHM 
, ALPHANUMERIC, AP L , AP P L I CAT I ON ,  SOFTWARE,  A 
SCII , ASSEMBLER 

900  DATA  BASIC, BATCH, BAUD, BENCHMARK, BI 
NARY, BOOLEAN, ALGEBRA, BOOTSTRAP , BUFFER, BU 
S, BYTE 

910  DATA  CPU, CHARACTER, COBOL, COMPILER, 
CONCATENATE, CPM 

920  DATA  DATA, DATABASE, DEBUG, DISC, DOCU 
MENTATION, DOS, DOT  MATRI X , D OUBLE  DENSITY, 
DYNAMIC 

930  DATA  EPROM, ERROR, FIELD, FILE, FIRMWA 
RE, FLAG, FLOPPY  DISC, FLOWCHART, FORTRAN 

940  DATA  GATE, GIGO, GLOBAL, GRAPHICS, HAR 
D  COPY, HARDWARE, HEXADECIMAL, HEX  PAD, HIGH 
LEVEL 

950  DATA  INPUT, INPUT, INSTRUCTION, INTER 
RUPT, INTERPRETER, JOYSTICK, KILOBYTE, LINE 
PRINTER, LOW  LEVEL 

960  DATA  MACHINE  LANGUAGE , MACHINE  CODE 
, MEMORY, MICROPROCESSOR, MODEM, MONITOR, MOT 
HERBORAD, MOUSE 

970  DATA  NETWORK, NUMERIC  PAD, OCTAL, ON 
LINE, OPERATING  SYSTEM, OUTPUT, PASCAL, PORT 
, PROCEDURE, PROGRAM, PILOT, RAM, REAL  TIME , R 
ANDOM, REFRESH, REGISTER, RESET, ROM 
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980  DATA  SNOBOL, SOFTWARE, STACK, SUBROUT 
INE, SYNTAX, SYSTEMS, SOFTWARE, THERMAL  PRIN 
TER, TIME  SHARING, TURNKEY  SYSTEM, WINCHE ST 
ER, UNIX, VMS, VIRTUAL, VOLATILE, "-999" 
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Solitaire  Maze 


Here'  sa  game  for  the  very  patient  and  skilled.  Written  initially 
by  Mike  O'  Neilland  modified  by  Ian  Hutt,  Solitaire  Maze 
challenges  you  to  a  game  of  strategy. 

You  control  between  one  and  five  circular  pieces.  There  is 
an  equal  number  of  diamond-shaped  pieces  which  do  not  move 
during  the  game.  The  object  of  the  exercise  is  to  move  your 
pieces  around  the  maze  so  that  ultimately  each  one  covers  a 
different  diamond. 

A  timer  runs  while  the  program  is  underway.  This  tells  you 
how  long  it  took  to  complete  the  latest  game,  and  the  fastest 
time  so  far. 


10  REM  Solitaire  Maze 

20 

30  MODE  1 
40  PROC_in i t 
50  REPEAT 

60  PROC_new_game 
70  PROC_maze 
80  PROC_setup 
90  REPEAT 
100  PROC_play 

110  UNTIL  got=circ 

120  UNTIL  NOT  FN_another 
130  PROC_normal 
140  END 
150 

160  DEF  PROC_init 

170  VDU  23, 0, 10, 32, 0; 0; 0; 

180  VDU  23, 128, &00, &3E, &7F, &7F, &7F, &7F 
,  &  7  F ,  &  3E 

190  VDU  23, 129, &00, &08, &1C, &3E, &  7  F , &3E 
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,  &  1 C ,  &  0  8 

200  VDU  23,130,-1,129,129,129,129,129, 
129,-1 

2  10  DIM  X%  (  4 )  , Y%  (  4 ) 

220  *  F  X  4  1 
230  high=-l 

240  COLOUR  1 : COLOUR  130 

250  PRINT  TAB ( 13 , 1 );" Solitaire  Maze" 

260  ENDPROC 

270 

280  DEF  PROC_new_game 
290  COLOUR  1 : COLOUR  128 

300  PRINT  TAB ( 0 , 2 7 ) ; " How  many  pieces  d 
o  you  want  (1-5)  ?"; 

310  REPEAT  K$=GET$ 

320  UNTIL  K  $  > " 0 "  AND  K$<"6" 

330  circ  =  VAL ( K  $ ) 

340  ENDPROC 
350 

360  DEF  PROC_maze 
370  CL  S 
380  RESTORE 
390  COLOUR  2 

400  PRINT  TAB ( 9, 1 );" Solitaire  Maze"" 
410  FOR  Y%  =  0  TO  21 
420  READ  S$ 

430  FOR  X%=1  TO  32 

440  IF  MID$ (S$,X%, 1) ="  "  THEN  VDU 

32  ELSE  VDU  130 
450  NEXT  X% 

460  PRINT 
47  0  NEXT  Y  % 

480  COLOUR  1 

490  FOR  C%=1  TO  circ 

500  REPEAT 

510  X%=RND (30) : Y%=4+RND (20) 

520  UNTIL  FN_ch (X%, Y%) ="  " 

530  PRINT  TAB (X%, Y%)  ;  "  [fsl] 

540  SOUND  1, -3*C%, 53+4*C%, 1 
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550  PROC_delay (20) 

560  NEXT 

570  COLOUR  3 

580  FOR  C%=0  TO  circ-1 

590  REPEAT 

600  X% (C%) =RND (30) : Y% (C%) =4+RND (20 

) 

610  UNTIL  FN_ch (X% ( C % )  ,Y%  (C%)  ) ="  " 

62  0  PRINT  TAB (X%  (C%)  , Y% (C%)  )  ;  "  [fsO]  " 

} 

630  SOUND  1, -3*C%, 101  +  4*C%, 1 
64  0  PROC_delay  (20) 

650  NEXT 

660  PRINT  TAB (33, 6) ; "TIME" 

67  0  PRINT  TAB ( 33 , 8 )  ; " 0  " 

680  IF  high=-l  THEN  710 

690  PRINT  TAB ( 32 , 11 );  "Fastest  " 

700  PRINT  TAB (33, 13) ; high  DIV  10  /10 

710  ENDPROC 

720 

730  DEF  PROC_setup 
740  COLOUR  1 

750  PRINT  TAB (0, 29) ; "Press  SPACE  BAR  t 
o  start" 

760  FOR  C%=10  TO  0  STEP  -1 
770  PRINT  TAB (3  0,  29)  ; C%;  "  " 

780  SOUND  1, C%-4, 101, 5 
790  T IME  =  0 

800  *FX  15  1 

810  K$  =  INKEY $  ( 100 ) 

820  IF  K$="  "  THEN  C%=0  ELSE  IF  K$<> 

""  THEN  K$=INKEY$ (100-TIME) :GOTO  820 
830  NEXT 

84  0  PRINT  TAB (0, 29)  ; SPC  (39)  ; 

850  got =0 
860  COLOUR  3 
870  TIME=0 
880  ENDPROC 
890 
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900  DEF  PROC_play 

910  PRINT  TAB ( 33 , 8 ) ; TIME  DIVIO  /10 
92  0  K%  =  I NKE  Y  (  0 ) 

930  *  F  X  15  1 

94  0  IF  K%  < 13  6  THEN  ENDPROC 
950  DX%=0 : DY%=0 

960  IF  K%  =  1 3  9  THEN  DY%  =  DY%-1 
97  0  IF  K%  =  1 3  8  THEN  DY%  =  DY%  +  1 
980  IF  K%  =  1 3  6  THEN  DX%  =  DX%-1 
990  IF  K%  =  1 3  7  THEN  DX%  =  DX%  +  1 
1000  IF  DX%  =  0  AND  DY%  =  0  THEN  ENDPROC 
1010  FOR  C%=0  TO  circ-1 

102  0  C  $  =  FN_ch (X% ( C  % )  +DX%, Y%  (  C  % ) +DY%) 

1030  IF  C  $  =  "  [ f  s  2 ]  "  OR  C  $  = "  [ f  s  0 ]  "  THEN 
1080 

104  0  PRINT  TAB (X%  (C%)  , Y% (C%)  )  ;  " 

1050  X% ( C  % ) =X% (C%)  +DX% : Y%  (C%) =Y%  (  C  % )  + 

D  Y  % 

1060  PRINT  TAB (X%  (C%)  , Y%  (C%)  )  ;  "  [fsO]  " 
i 

1070  IF  C  $  =  "  [ f  s 1 ]  "  THEN  COLOUR  2:PRIN 
T  TAB (X%(C%),Y%(C%))  ;  "  [  f  s  0 ]  " : COLOUR  3 : X% 
(C%) =- 1 : Y% (C%) =-l:got=got+l 
1080  NEXT 
1090  ENDPROC 
1100 

1110  DEF  FN_anot her 
1120  T%=TIME 

1130  PRINT  TAB ( 0, 27 ) ; "Well  done . You  com 
pleted  the  course  in" 

1140  PRINT ; T%  DIVIO  /10;"  seconds."; 
1150  IF  T%<high  OR  high<0  THEN  high=T%: 
PRINT" The  fastest  time!" 

1160  *FX  15  1 

1170  PRINT  TAB ( 0, 30 ); "Would  you  like  an 
other  go  ?"; 

1180  REPEAT  K  $  =  GE  T  $ 

1190  UNTIL  K  $  =  " Y "  OR  K$  =  "N" 

1200  VDU  28,0,31,39,26,12,26 
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1210  =  ( K  $  = " Y "  ) 

122  0 

1230  DEF  PROC_normal 

12  4  0  *  F  X  4 

12  50  *  F  X  15  1 

12  60  CL  S 

1270  ENDPROC 

1280 

1290  DEF  FN_ch ( X% , Y% ) 

1300  IF  X%<1  OR  Y  %  <  5  THEN  ="[fs2]" 

1310  VDU  31, X%, Y% 

132  0  A%  =  1 3  5 

1330  =CHR$  (  (USR(&FFF4) AND  &FFFF ) DIV&100) 


1340 

1350  DEF  PROC_delay { T  % ) 

1360  t %=TIME+T% 

1370  REPEAT  UNTIL  TIME>=t% 

1380  ENDPROC 

1390  DATA  "############################ 
####" 

1400  DATA  "# [spcl7] # [spc3] # [spc8] #" 

1410  DATA  "#  #######  ####### [Spc3] ##### 
###  #  #" 


1420  DATA  "#  # [spc9] # [spc3] #  #[spc6]#[s 
pc3 ] #  #" 

1430  DATA  "# [Spc3] ###########  #  ###### 

#  #  #  # " 

1440  DATA  "#  #  # [ spc8 ] #  #[spc6]#  #  #[s 

pc3 ] #" 

1450  DATA  "#  #  #  ##  ###  #  ####### [spc3] 
# [ spc3 ] #  #" 

1460  DATA  "#  #  #  # [ spc4 ] #  #[spc7]#  #[sp 
c  3  ]  #  #  #  " 

1470  DATA  "#  # [ spc3 ] #  ####  ##  #  ##[spc3 
]#####" 


1480  DATA  "#  #  #  #  # [ spc7 ] #  ##  #  ###  # 

###" 


14  90  DATA  "#  #  #  [  spc3 ] #####  #  ##[spc3]# 
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#  # [ spc3 ] #  #" 

1500  DATA  "#  ###  # [spc7] #  [spc4] #  #  #  ## 

# [spc3] #" 

1510  DATA  "#####  #####  #  ##  #[spc5] 
#  #  #" 

152  0  DATA  "#  #  #  #  [ spc  9 ]  #  #  #  #  #  ### 

#" 

1530  DATA  "# [Spc7] ######  ##  ##  ###  #  # 

#" 

1540  DATA  "#  ##### [spc6] # [spc4] # [spc3] # 
## [spc3] ##" 

1550  DATA  "### [spc3] #  ###  ###  #  #  #[spc 

4  ]  #  #  #  " 

1560  DATA  "#  #  # [spc3] # [spc3] #  #  #[spc3 

]##  ####  #  ##" 

1570  DATA  "#  # [spc3] # [spc3] # [spc5] #  #[s 
pc  9 ] #  #" 

1580  DATA  "#  ###  #  ###  ### [spc3] ####### 
####  #" 

1590  DATA  " # [ s  p  c  5 ] #  # [ spc7 ] # [ spc5 ] # [ spc 

5  ]  #  #  " 

1600  DATA  "############################ 
####" 
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Card  Games 


Pontoon 


Time  now  to  play  against  your  BBC  Micro  in  this  implementa¬ 
tion  of  Pontoon.  The  computer  is  the  banker,  and  your 
opponent.  Be  warned,  it  plays  a  very  good  game. 

Once  the  cards  are  shuffled,  the  Beeb  deals  both  players 
(itself  and  you)  two  cards,  turning  your  two  over  to  begin  with. 
Based  on  what  you  think  are  your  chances  of  success  from  the 
first  two  cards,  you  are  asked  to  place  a  bet.  You  can  then 
'stick'  (stand  with  the  cards  you  have)  or  'twist'  (request  extra 
cards,  one  by  one). 

The  aim  of  the  game  is  to  get  cards  which  add  up  to  21,  or 
as  close  as  possible  to  21,  without  exceeding  it  (which  is  known 
as  'busting').  Note  that  an  Ace  can  count  as  eleven  or  as  one 
when  totalling  your  points.  All  picture  cards  (Jack,  Queen  and 
King)  are  worth  ten  points. 


10  REM  PONTOON 
20 

30  MODE  1 
40  PROC_SE  TUP 
50  REPEAT 
60  PROC_INTRO 
70  REPEAT 
80  PROC_PLAY_GAME 

90  PROC_SHOW_OUTCOME 

100  UNTIL  MONE  Y  < 1  OR  QUIT 

110  UNTIL  NOT  FN_AN OTHER 
120  MODE  7 
130  END 

140  DEF  PROC_SHUFFLE 
150  COLOUR  0 

160  PRINT  TAB (15,  13)  ;  "SHUFFLING" 

170  PACK$  =  "H9C5C  JD  3DKS7HAS2D7C6C [ f s  4  ]  S 


289 


QH8D4S  [ f  s  4 ]  SAH6DQCKHJC3S5C8D9H3S9DAHKH7S 
4D [ fs4 ] H5SKS6D2H [fs4 ] C2S8D6C9HQH2CAS3D5S 
JC4D JC7H4D8CQ" 

180  FOR  posn=l  TO  52 
190  car d=RND ( 5 3 -pos n ) 

200  DECK$ (posn) =MID$ (PACK$, (2*card)- 
1,2) 

210  PACK$=LEFT$(PACK$, 2* (card-1) ) +MI 
D  $ ( P ACK$ ,  ( 2  *card) +1 ) 

220  NEXT 
230  NUM=  5  2 

2  4  0  PRINT  TAB (15, 13)  ; SPC  (9) 

250  ENDPROC 

260  DEF  PROC_PLAY_GAME 
270  PROC_INIT_GAME 
2  80  PROC_PLACE_l st_HAND  S 
290  IF  HANDH=2 1  THEN  400 
300  IF  QUIT  THEN  ENDPROC 

310  IF  OPTION$  =  "S"  OR  HAND  H>  =  2 1  THEN  3 

60 

320  REPEAT 

330  IF  NUM=  0  THEN  PROC_SHUFFLE 
340  PROC_HUMAN_MOVE 

350  UNTIL  HAND  H=  2 1  OR  OPTION$  =  "S"  OR 
HANDH>2 1  OR  OPTION$="Q"  OR  HCARDS=5 
360  IF  HANDL=2 1  OR  HANDH=2 1  THEN  PROC_ 
P  L  (  "  H  "  ,  "  2  1  '  s  "  ) 

370  IF  HAND  L  >  2 1  THEN  PROC_P  L ( " H " ,  "BUST 

!  ") 

380  IF  OPTION$="S"  THEN  PROC_PL ( " H" , " S 
TICK"  ) 

390  IF  HOARD  S  =  5  AND  HAND  L<  2  2  THEN  PRIN 
T  TAB  (3  4,  7);  "A  F  I VE  "  ;  TAB  (  3  4  ,  8  )  ;  "  CARD 
TAB (34,9) ; " TRICK ! " 

400  PROC_DRCD (200, 396,FNSUIT (NUM+ HOARD 
S  +  l )  , FNVALUE  ( NUM  +  HCARD  S  + 1 )  ) 

410  PROC_WAIT 

420  PROC_DRCD (400,396,FNSUIT (NUM+HCARD 
S - 1 ) , FNVALUE ( NUM+HCARD S -1 ) ) 
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;  CHAN 


430  PRINT  TAB ( 2 , 15 ) ; "MY  HAND 
DH;  "  " 

4  4  0  IF  CHAND  H>  =  HAND  H  OR  HANDH>2 1  OR  (H 
AND  H  =  2 1  AND  HCARDS  =  2  AND  CHANDH<2 1 )  THEN 
54  0 

450  REPEAT 

4  60  IF  NUM=  0  THEN  PROC_SHUFFLE 

470  PROC_WAIT 

480  PROC_TWI ST ( " C " ) 

490  UNTIL  CHAND H>=H AND H  OR  CCARDS=5 


T  ! 

500 

11  \ 

IF 

CHAND  H>  2 1 

THEN 

P  ROC_P  L ( 

ii  c  11  ” 

BUS 

510 

IF 

CHAND  H=  2 1 

AND 

CCARDS05 

THEN 

PR 

OC 

_PL  ( 

"C" 

,  "  2  1  '  s  "  ) 

52  0 

IF 

CHAND  H<  2 1 

AND 

CCARDS05 

THEN 

PR 

oc 

_PL  ( 

"C" 

, "STICK" ) 

530 

IF 

CHAND  H<  2  2 

AND 

CCARD  S  =  5 

THEN 

PRI 

NT 

TAB  (34 

, 18) ; "A  FIVE" ; 

TAB (34,19);"  CARD 

ii 

; TAB  (34 

, 20) ; "TRICK ! " 

540 

IF 

CHAND  H=  2 1 

AND 

CCARD  S  =  2 

THEN 

PRO 

C_ 

PL  (  " 

C", 

"A  PONTOON 

!  "  ) 

550  ENDPROC 

560  DEF  PROC_INIT_GAME 
570  CASH=MONEY 
580  VDU  26,12,17,0 

590  PRINT  TAB ( 0, 4 ) ; "YOUR  HAND  -  0" 

600  PRINT  TAB (2, 15) ; "MY  HAND  -  0" 

610  PRINT  TAB (20, 4) ; "You  Have  '";CASH 
620  ENDPROC 

630  DEF  P  ROC_P  LACE_1 s  t_HAND  S 
640  IF  NUMCll  THEN  PROC_SHUFFLE 
650  PROC_DRCD (200, 750, 0, 0) 

660  PROC_DRCD (200, 396, 0, 0) 

670  PROC_DRCD (400, 750, 0, 0) 

680  PROC_DRCD (400, 396, 0, 0) 

690  NUM=NUM— 4 : HCARDS=2 : CCARDS=2 
700  PROC_DRCD (200,750,FNSUIT (NUM+4 ) , FN 
VALUE (NUM+4 ) ) 

710  HANDH=FNCARD (NUM+4, 11) 
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720  HANDL=FNCARD (NUM+4 , 1 ) 

730  CHANDH=FNCARD (NUM+3, 11) +FNCARD (NUM 

+1, 11) 

740  CHANDL=FNCARD (NUM+3, 1) +FNCARD (NUM+ 

1,1) 

750  PRINT  TAB ( 0, 4 ) ; "YOUR  HAND  -  " ; HAN 

DH 

7  60  BU Y_OK  =  TRUE 
77  0  PROC_BE  T 

780  IF  QUIT  THEN  ENDPROC 

790  PROC_DRCD (400, 750,FNSUIT (NUM+2) , FN 
VALUE (NUM+2 ) ) 

800  HANDH=HANDH+FNCARD (NUM+2 , 11 ) 

810  HANDL=HANDL+FNCARD (NUM+2, 1) 

820  PRINT  TAB ( 0, 4 ) ; "YOUR  HAND  -  " ; HAN 

DH 

830  IF  HANDH=2 1  THEN  PRINT  TAB(15,7);" 
A  PONTOON!  "  : OP  TI ON$= " " :ENDPROC 
840  OP T I ON$ =FN_COMMAND (BUY_OK) 

850  IF  OPTION$="Q"  THEN  QUIT=TRUE : ENDP 
ROC 

860  BU Y_OK  =  F AL  SE 

870  IF  OPTION$  =  "B"  THEN  PROC_BE  T : PROC_ 
TWIST ("H") : BUY_OK=TRUE 

880  IF  OPTION$="T"  THEN  PROC_TWI S T ( " H " 

) 

890  ENDPROC 

900  DEF  PROC_HUMAN_MOVE 

910  OP T I ON$ =FN_COMMAND (BUY_OK) 

920  IF  OPTION$  =  "B"  THEN  PROC_BE  T : PROC_ 
TWIST ( "H" ) 

930  IF  OPTION$="T"  THEN  PROC_TWIST ( " P " 
) : BUY_OK= FALSE 
940  ENDPROC 

950  DEF  P  ROC_S  HOW_OUTCOME 
960  W I N  $  = " I " 

97  0  IF  HANDH>CHANDH  AND  HANDH<2  2  THEN 
WIN$ =" YOU" 

980  IF  HCARD  S  =  5  AND  HAND  H<  2  2  THEN  WIN$ 
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=  "  Y  0  U  " 

990  IF  CHAND  H>  2 1  AND  HANDH<2  2  THEN  WIN 
$=" YOU" 

1000  IF  CCARD  S  =  5  AND  CHANDH<2  2  THEN  WIN 
$  =  "  I  " 

1010  BET=MONEY— CASH 

1020  IF  WIN$="YOU"  THEN  MONEY=MONEY+BET 
ELSE  MONEY =CASH 

1030  PRINT  TAB (0, 25) ;WIN$; "  WIN!" 

104  0  PRINT'  "You  have  " ; M  0  N  E  Y 
1050  IF  MONE  Y  <  =  0  THEN  QUI T  =  TRUE 
1060  IF  QUIT  THEN  ENDPROC 
1070  PRINT ' "Another  game  (Y/N)  ?"; 

1080  REPEAT  KEY  $  =  GE  T  $ 

10  90  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

1100  IF  KE  Y  $  =  " N "  THEN  QUI T  =  TRUE 
1110  ENDPROC 


1120 

DEF 

P  RO C_S  E  TUP 

1130 

VDU 

23, 

128, 

&  1 8 , 

&  3  C , 

&  7E , 

&FF, 

&FF  , 

&  7  E 

,  &3C, 

&  1  8 

1140 

VDU 

23, 

129, 

&  6  6 , 

&FF , 

&FF , 

&FF, 

&FF  , 

&  7  E 

,  &3C, 

&  1  8 

1150 

VDU 

23, 

130, 

&  1 8 , 

&  3  C , 

&  1  8  , 

&  7E, 

&FF  , 

&  7  E 

,  &  1  8  , 

&  3C 

1160 

VDU 

23, 

131, 

&  1 8 , 

&  3  C , 

&  7E , 

&FF, 

&FF  , 

&  5  A 

,  &  1  8  , 

&  3C 

1170 

VDU 

23, 

132  , 

&  4C, 

&  5  2  r 

&  5  2  , 

&  5  2  r 

&  5  2 , 

&  52 

,  &4C, 

&  0  0 

1180 

VDU 

23, 

133, 

&  AA, 

&  5  5  r 

&  AA, 

&  5  5  r 

&  AA, 

&  5  5 

,  &AA, 

&  5  5 

1190 

VDU 

23, 

0,10 

,  32, 

•  s 

o 

o 

0; 

1200  DIM  DECK$  (52) 
1210  ENDPROC 
1220  DEF  PROC_INTRO 
1230  VDU  26,20, 12 
1240  VDU  19,2,2,0,0,0 
1250  COLOUR  130 
12  60  CL  S 
1270  QUIT=FALSE 
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12  80  MONEY  =  10  0 
1290  PROC_ SHUFFLE 
1300  ENDPROC 

1310  DEF  P  ROC_DRCD  ( X%  , Y%,  S%, C%) 

1320  GCOL  0,131 
1330  GCOL  0,0 
1340  VDU  5 

1350  VDU  2 4 , X%-64 ; Y%-96; X%+64 ; Y%+96 ; 1 6 
1360  MOVE  X%-64 , Y%-96 : PLOT  1,0,192:PLOT 
1,  128, 0 :PLOT  1 ,  0  , -1 92 : PLOT  1,-128,0 
1370  IF  S%=0  THEN  1460 
1380  IF  S%<3  GCOL  0,1  ELSE  GCOL  0,0 
1390  MOVE  X%-48 , Y%+1 6 : PRINT  CHR$(127+S% 

1400  MOVE  X%+16, Y%+1 6 : PRINT  CHR$(127+S% 

1410  MOVE  X%-48, Y%-48 : PRINT  CHR$(127+S% 

1420  MOVE  X%+16, Y%-48 : PRINT  CHR$(127+S% 

1430  MOVE  X%+16, Y%+80 : PRINT  FNNUM(C%) 
1440  VDU  4,26 
1450  ENDPROC 

1460  GCOL  0,1: MOVE  X%-48,Y%+80 

1470  FOR  R%= 1  TO  5 

1480  VDU  133,133,133,10,8,8,8 

1490  NEXT 

1500  VDU  4,26 

1510  ENDPROC 

1520  DEF  FNNUM(NUM) 


1530 

IF 

NUM=  1 

THEN  = 

"A" 

154  0 

IF 

NUMC10 

THEN 

=  C  HR  $  ( 4  8+NUM) 

1550 

IF 

NUM=  1  0 

THEN 

=  "  [  f  s  4  ]  " 

1560 

IF 

NUM=  1 1 

THEN 

= »»  j »» 

1570 

IF 

NUM=  1  2 

THEN 

=  "  Q  " 

1580 

=  ii 

K" 

1590  DEF  FNVALUE ( card) 

1600  LOCAL  NUM$ 

1610  NUM$=RIGHT$ (DECK$ (card) , 1 ) 
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1620  IF  NUM$  = " A "  THEN  =1 

163  0  IF  NUM$  > " 1 "  AND  NUM$<="9"  THEN  =VA 
L (NUM$ ) 

164  0  IF  NUM$  =  "  [ f  s  4 ]  "  THEN  =10 
1650  IF  NUM$  = " J "  THEN  =11 

1660  IF  NUM$="Q"  THEN  =12  ELSE  =13 
1670  DEF  FNCARD (card, ace) 

1680  card$=RIGHT$ (DECK$ (card) , 1) 

1690  IF  card$="A"  THEN  =ace 
1700  IF  card$>"l"  AND  card$<="9"  THEN  = 
VAL ( card$ )  ELSE  =10 
1710  DEF  FNSUIT ( card) 

1720  SUIT$=LEFT$ (DECK$ (card) , 1 ) 


1730 

IF 

SU I T  $ 

=  "D" 

THEN 

=  1 

17  4  0 

IF 

SU I T  $ 

=  "  H  " 

THEN 

=  2 

1750 

IF 

SU  I T  $ 

=  "C" 

THEN 

=  3 

17  60 

DEF 

PROC 

_BE  T 

1770  PRINT  TAB  (5, 25)  ;  "Place  your  bet 
'  1-' 

"  ;  CASH 

1780  *FX  15  1 

1790  INPUT  TAB (15, 27) ; "BET=' "bet$ 

1800  bet%=VAL (bet$) 

1810  PRINT  TAB (5, 25) ; STRING$ (34, "  " ) ; TA 

B  (15, 27)  ; STRING$  (24,  "  "); 

1820  IF  LEFT$  (bet $,  1 ) ="Q"  OR  LEFT$  (bet$ 

, 1 ) = " q "  THEN  QUIT=TRUE : ENDPROC 


1830 

IF 

bet %=0  THEN 

VDU 

7  : 

GOTO 

1770 

1840 

IF 

be t  %  < 1  THEN 

VDU 

7  : 

GOTO 

1770 

1850 

IF 

bet %>CASH  THEN 

VDU 

7 : GOTO  1770 

1860  CASH=CASH-bet% 

1870  PRINT  TAB (20, 4 ); "You  Have  £";CASH; 
" [ spc4 ] " 

1880  IF  CASH< 1  THEN  BU Y_OK  =  F AL  SE 
1890  ENDPROC 

1900  DEF  FN_COMMAND (BUY) 

1910  LOCAL  L  % , O  $ , KE  Y  $ 

1920  VDU  4,28,34,11,38,6,12 
1930  O  $  =  " T / S " 
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1940  PRINT  "TwistStick"; 

1950  IF  BUY  THEN  PRINT"  or  Buy” :0$=0$+ 
"  /  B  " 

1960  PRINT  0$; 

197  0  *  F  X  15  1 
1980  KE  Y  $  =  GE  T  $ 

1990  IF  KE Y $  = " T "  OR  KEY$  =  "S"  OR  KEY$  =  "0 
"  OR  ( KE  Y  $  =  "  B  "  AND  BUY)  THEN  VDU  12,26:  = 
KEY  $  ELSE  1980 
2000  DEF  PROC_TWIST (P$ ) 

2010  NUM=NUM— 1 

2020  IF  NUM=  0  THEN  PRINT  TAB ( 1 3 ,  1 3 )  ;  " RE 
" ; : PROC_SHUFFLE : PRINTTAB (13,13);"  " ; 

2030  IF  P$="C"  THEN  2100 
2  04  0  HOARD  S  =  HOARD  S  + 1 

2050  PROC_DRCD (200*HCARDS, 750,FNSUIT(NU 
M) , FNVALUE (NUM) ) 

2060  HANDH=HANDH+FNCARD (NUM, 11 ) : HANDL=H 
ANDL+FNCARD (NUM, 1) 

2070  IF  HANDH>2 1  AND  HAND  L<  2  2  THEN  HAND 
H=HANDL 

2080  PRINT  TAB ( 0, 4 ) ; "YOUR  HAND  -  " ; HAN 

DH 

2090  ENDPROC 

2100  CC ARD  S  =  CCARD  S  + 1 

2110  PROC_DRCD (200*CCARDS, 396,FNSUIT(NU 
M) , FNVALUE (NUM) ) 

2120  CHANDH=CHANDH+FNCARD (NUM, 11) : CHAND 
L=CH ANDL+FNCARD (NUM, 1) 

2130  IF  CHAND  H>  2 1  AND  CHANDL<2  2  THEN  CH 
AND H=C HAND L 

2140  PRINT  TAB (2, 15) ; "MY  HAND  -  " ; CHAN 

DH 

2150  ENDPROC 
2160  DEF  PROC_WAIT 

2170  TIME=0 : REPEAT  UNTIL  TIME>=100 

2180  ENDPROC 

2190  DEF  FN_ANOTHER 

2200  IF  MONE  Y  <  =  0  THEN  PRINT"You  do  not 
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have  enough  money  to  play." 

2210  PRINT' "Would  you  like  to  PAY  again 
(Y/N)  ?"; 

2220  REPEAT  KEY  $  =  GE  T  $ 

22  3  0  UNTIL  KEY$  =  "Y"  OR  KE  Y  $  =  " N " 

22  4  0  IF  KE  Y  $  =  " Y "  THEN  =TRUE  ELSE  =FAL SE 

2250  DEF  P  ROC_P  L ( CH  $ ,  S  $ ) 

2260  COLOUR  1 

2270  IF  C  H  $  = " H "  THEN  P X%  =  5  +  6  * HOARD S : P Y % 
=  8  ELSE  P X%  =  5  +  6  *  CC ARD  S : P  Y %  =  1 9 
2280  PRINT  TAB (PX%, PY%) ; S$; 

2290  COLOUR  0 
2300  ENDPROC 
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Play  Your  Cards  Right 


You  and  the  clever  computer  have  a  row  of  cards  in  this  game, 
where  the  aim  is  to  reach  the  end  of  the  row  by  guessing  if  the 
next  card  to  be  turned  over  will  be  higher  or  lower  than  the 
previous  one. 

Your  turn  lasts  as  long  as  you  guess  correctly.  If  you  make  a 
mistake  and  guess  wrongly,  you  lose  all  the  cards  which  come 
after  your  '  freezemarker'  .You  can  end  your  turn  early  and 
move  your  marker  to  the  current  card  by  pressing  '  F  for  freeze 

You  start  the  play  by  using  your  option  of  changing  the 
current  card  (using  '  YFor  yes  or  '  Nfor  no)  if  you  think  the 
card  is  not  a  good  one  to  proceed  with. 

You'  llfind  the  BBC  Micro  plays  very  well  in  this  highly 
effective  program,  based  on  one  written  by  Paul  Toland, 
although  it  tends  to  err  a  little  on  the  safe  side.  The  cards  are 
drawn  randomly  from  a  proper  pack.  You'  lbe  most  impressed 
with  the  appearance  of  the  cards. 


10  REM  P  .  Y . C . R 
20 

30  MODE  1 
40  PROC_SE  TUP 
50  REPEAT 
60  PROC_INTRO 
70  FOR  GAME  =  1  TO  3 
80  PROC_DI SPLAY 
90  PROC_PLAY 
100  NEXT 

110  UNTIL  NOT  FN_AN OTHER 

120  END 

130 

140  DEF  PROC_SHUFFLE 
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150  COLOUR  0 

160  PRINT  TAB (15, 13) ; "SHUFFLING" 

170  PACK$  =  "H9C5C  JD  3DKS7HAS2D7C6C [ f s  4 ]  S 
QH8D4S  [ f  s  4 ]  SAH6DQCKHJC3S5C8D9H3S9DAHKH7S 
4D [ fs4 ] H5SKS6D2H [fs4 ] C2S8D6C9HQH2CAS3D5S 
JC4D JC7H4D8CQ" 

180  FOR  posn=l  TO  52 
190  card=RND (53-posn) 

200  DECK$ (posn) =MID$ (PACK$, (2*card)-l, 

2) 

210  PACK$=LEFT$ (PACK$,2* (card-1) ) +MID$ 
( P ACK$ ,  ( 2  *card) +1) 

220  NEXT 
230  BASE%=1 

2  4  0  PRINT  TAB ( 16, 3 )  ; SPC  (  9) 

250  ENDPROC 
260 

270  DEF  PROC_SETUP 

280  VDU  23, 128, &18, &3C, &7E, &FF, &FF, &7E 
,  &  3  C  ,  &  1 8 

290  VDU  23, 129, &66, &FF, &FF, &FF, &FF, &7E 
,  &  3  C  ,  &  1 8 

300  VDU  23, 130, &18, &3C, &18, &7E, &FF, &7E 
,  &  1 8  ,  &  3  C 

310  VDU  23, 131, &18, &3C, &7E, &FF, &FF, &5A 
,  &  1 8  ,  &  3  C 

320  VDU  23, 132, &4C, &52, &52, &52, &52, &52 
, &  4C, &  00 

330  VDU  23,  133, &  AA , &  5  5 , &  AA , &  5  5 , &  A A , &  5  5 
,  &  AA , &  5  5 

340  VDU  23, 134, 0, 0, 0, 0, 0, -1, -1, -1 
350  VDU  23,135,8,28,62,28,28,252,252,2 
52 

360  VDU  23, 0, 10, 32, 0; 0; 0; 

370  DIM  DECK$ (52) , Card$ (5, 1) 

380  ENDPROC 
390 

400  DEF  PROC_INTRO 
410  VDU  26,20, 12 
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420  VDU  19,2,2,0,0,0 
430  COLOUR  130 
4  4  0  CL  S 

450  PROC_ SHUFFLE 
460  PWIN=0 : CWIN=0 
470  ENDPROC 
480 

4  90  DEF  P  ROC_DRCD (card%, play%, S%, C%) 
500  LOCAL  X% , Y% 

510  X%  =  17  6  +  193*card% : Y%  =  77  0-354  *play% 
520  GCOL  0,131 
530  GCOL  0,0 

540  SOUND  &12, -2-2*card%, 53  +  4*card%,  2 
550  VDU  5 

560  VDU  24, X%-64 ; Y%-96; X%+64 ; Y%+96; 16 
570  MOVE  X%-64 , Y%-96 : PLOT  1,0,192:PLOT 
1, 128, 0 :PLOT  1 ,  0  , -1 92 : PLOT  1,-128,0 
580  IF  S%=0  THEN  670 

590  IF  S%<3  GCOL  0,1  ELSE  GCOL  0,0 
600  MOVE  X%-48, Y%+16 : VDU  127+S% 

610  MOVE  X%+16, Y%+16 : VDU  127+S% 

620  MOVE  X%-48, Y%-48 : VDU  127+S% 

630  MOVE  X%+16, Y%-48 : VDU  127+S% 

640  MOVE  X%+16, Y%+80 : PRINT  FNNUM(C%) 
650  VDU  4,26 
660  ENDPROC 

670  GCOL  0,1: MOVE  X%-48,Y%+80 

680  FOR  R%= 1  TO  5 

690  VDU  133,133,133,10,8,8,8 

700  NEXT 

710  VDU  4,26 

720  ENDPROC 

730 


740 

DEF 

FNNUM (NUM) 

750 

IF 

NUM= 1 4 

THEN 

=  ”  A  ” 

7  60 

IF 

NUMC10 

THEN 

=  C  HR  $  (  4  8+NUM) 

77  0 

IF 

NUM= 1 0 

THEN 

=  "  [  f  s  4  ]  " 

780 

IF 

NUM= 1 1 

THEN 

=  "J" 

7  90 

IF 

NUM= 1 2 

THEN 

=  "Q" 
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800  = " K " 

810 

820  DEF  FNVALUE ( card, play ) 

830  LOCAL  NUM$ 

840  NUM$=RIGHT$ ( Car d$ ( card, play ) , 1 ) 

850  IF  NUM$  = " A "  THEN  =14 

8  60  IF  NUM$  > " 1 "  AND  NUM$<="9"  THEN  =VA 
L (NUM$ ) 

87  0  IF  NUM$  =  "  [ f  s  4 ]  "  THEN  =10 

880  IF  NUM$="J"  THEN  =11 

890  IF  NUM$="Q"  THEN  =12  ELSE  =13 

900 

910  DEF  FNSUIT (card, play ) 

920  SUIT$=LEFT$ ( Car d$ ( card, play ), 1 ) 

930  IF  SUIT$="D"  THEN  =1 

940  IF  SUIT$="H"  THEN  =2 

950  IF  SUIT$="C"  THEN  =3  ELSE  =4 

960 

970  DEF  PROC_S IG_TUNE 
980  RESTORE  1080 
990  LOCAL  D%, 1%, N% 

1000  FOR  I%=1  TO  9 
1010  READ  N% , D  % 

1020  SOUND  1, -10, 53+4*N%, D% 

1030  NEXT 

1040  SOUND  1,0, 0,0 

1050  REPEAT  UNTIL  ADVAL(-6)=15 

1060  ENDPROC 

1070 

1080  DATA  0,5,12,2,7,7,5,5,7,1,9,4,7,2, 
5,  5,  0,  8 
1090 

1100  DEF  PROC_D I SPLAY 
1110  LOCAL  C%,P% 

1120  IF  BASE  %  >39  THEN  PROC_SHUFFLE 
1130  COLOUR  1 

1140  PRINT  TAB (10, 13) ; "PLAY  YOUR  CARDS 
RIGHT" 

1150  COLOUR  0 
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1160  PRINT  TAB (15, 14) ; "GAME  NO.  " ; GAME 
1170  FOR  P  %  =  0  TO  1 
1180  FOR  C%=0  TO  5 

1190  Card$  (C%,P%) =DECK$  (BASE%+ { P  %  *  6 )  +C% 

) 

12  00  IF  C%>0  THEN  PROC_DRCD  (  C% , P % ,  0 ,  0 ) 
ELSE  PROC_DRCD (C%,P%,FNSUIT(C%,P%) , FNVAL 
UE (C%, P%) ) 

1210  NEXT 
1220  NEXT 

1230  BASE%=BASE%+12 
1240  COLOUR  0 

1250  PRINT  TAB (3, 11)  ; "  [f s6]  [f s6]  [f s6]  [f 
s  6  ]  [ f  s  6 ]  [fs7]  ";SPC(39 -P  OS )  ; 

1260  PRINT  TAB (3, 22)  ; "  [fs6]  [fs6]  [fs6]  [f 
s  6 ]  [ f  s  6 ]  [fs7]  ";SPC(39 -P  OS )  ; 

1270  PRINT  TAB (0, 5) ; "YOU" 

1280  PRINT  TAB ( 0, 7 ) ; PWIN 
1290  PRINT  TAB (0, 16) ; "ME  " 

1300  PRINT  TAB ( 0, 18 ) ; CWIN 

1310  ENDPROC 

1320 

1330  DEF  PROC_PLAY 
1340  PROC_S I G_TUNE 

1350  PC=0 : CC=0 : PS=0 : CS=0 : count=0 

1360  IF  RND (10) <6  THEN  PROC_COMP 

1370  REPEAT 

1380  PROC_HUMAN 

1390  PROC_COMP 

1400  UNTIL  CC  =  6  OR  PC=6 

1410  IF  CC  =  6  THEN  CWIN  =  CWIN  +  1 : PRINT  TAB 
(18, 26); "I  WIN"  ELSE  PWIN=PWIN+ 1 : PRINT  T 
AB  (17, 26)  ;  "YOU  WIN" 

1420  ENDPROC 
1430 

1440  DEF  PROC_HUMAN 
1450  IF  CC  =  6  THEN  ENDPROC 
1460  PC=PS 

1470  PRINT  TAB ( 17 , 2 4 ) ; " Your  go" 
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1480  PRINT  TAB (3, 26) ; "Do  you  want  to  ch 
ange  this  card  ?"; 

14  90  REPEAT  KEY  $  =  FNKEY 

1500  UNTIL  K  E  Y  $  =  " Y "  OR  K  E  Y  $  =  " N " 

1510  PRINT  TAB (3, 26)  ; SPC (36)  ; 

152  0  IF  KE  Y  $  =  " Y "  THEN  Card$  (PC, 0 ) =DECK$ 
( BAS  E  % )  : BASE%  =  BASE%  +  1 :PROC_DRCD  (PC,  0, F NS 
UIT (PC, 0) , FNVALUE (PC, 0) ) 

1530  REPEAT 
1540  C=PC:PC=PC+1 

1550  IF  PC=6  THEN  QUIT=TRUE : PC=5 : GOTO  1 
640 

15  60  IF  PCOPS  +  1  THEN  PRINT  TAB(0,26);" 

Higher,  Lower  or  Freeze  (H,L  or  F)  ?";  E 
LSE  PRINT  TAB (8, 26) ; "Higher  or  Lower  (H 
o  r  L  )  ?  "  ; 

1570  REPEAT  KEY  $  =  FNKEY 

1580  UNTIL  K E Y $  =  " H "  OR  K E Y $  =  " L "  OR  (KEY 
$  =  "  F  "  AND  PCOPS  +  1) 

1590  PRINT  TAB (0, 26)  ; SPC  (39)  ; 

1600  IF  KE Y $  =  " F  "  THEN  P S  =  PC-1 : PRINT  TAB 
(3,11)  ; STRING$  (PS,  "  [f s6]  [f s6]  [f s6]  [fs6]  [ 
f  s  6 ]  [fs6]");"[fs6]  [fs6]  [fs6]  [fs6]  [fs6]  [f 
s7 ] " ; : QUIT=TRUE : GOTO  1640 
1610  PROC_DRCD (PC,0,FNSUIT(PC,0), FNVALU 
E  (PC, 0)  ) 

1620  IF  FNVALUE (PC, 0) =FNVALUE (C, 0)  THEN 
PRINT  TAB ( 3, 2 ) ; "You  don't  get  anything 
for  a  pair " ; TAB ( 10 , 3 ) ; "Not  in  this  game 
!  " : D  =  I NKE Y (300)  :PRINT  TAB (0,2)  ;SPC(80)  ; 
1630  IF  (FNVALUE (PC, 0 ) <FNVALUE (C, 0 )  AND 
K  E  Y  $  = " H " )  OR  (FNVALUE  (PC,  0)  >FNVALUE  (C,  0 
)  AND  KE  Y  $  = " L " )  THEN  QUIT  =  TRUE  ELSE  QUIT 
=FALSE 

1640  UNTIL  QUIT  OR  PC=5 
1  650  IF  KE  Y  $  =  " F "  THEN  PC  =  C:ENDPROC 
1660  IF  PC=5  AND  NOT  QUIT  THEN  PC=6:END 
PROC 

1670  FOR  C=PS+1  TO  PC 
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1680  Card$ (C, 0) =DECK$ (BASE%) 

1690  BASE%=BASE%+1 

17  00  IF  BASE  %  >  5  0  THEN  PROC_SHUFFLE 
1710  PROC.DRCD (C, 0, 0, 0) 

1720  NEXT 
1730  ENDPROC 
17  4  0 

1750  DEF  PROC_COMP 

17  60  IF  PC  =  6  OR  CC=  6  THEN  ENDPROC 
1770  CC=CS 

1780  QUIT=FALSE :C=CC 

1790  count = ( count +FNVALUE (CC,1))/(CC+1) 
1800  PRINT  TAB (17,24) ; "  My  go 
1810  IF  FNVALUE (CC, 1) <6  OR  FNVALUE(CC,1 
) >9  THEN  1840 

1820  PRINT  TAB (3, 26) ; "I ' 11  change  that 
card. " : Card$ (CC, 1) =DECK$ ( BASE% ) : BASE%=BA 
SE%+1 : PROC_DRCD (CC,1,FNSUIT(CC,1), FNVALU 
E (CC, 1) ) 


1830 

D=INKEY (200) 

: PRINT  TAB ( 3  ,  2 6  )  ; SPC ( 3 

6)  ; 

1840 

REPEAT 

1850 

N=FNVALUE (CC 

,  D 

1860 

C=CC : CC=CC+1 

1870 

* 

-co¬ 

ll 

1880 

REPEAT 

1890 

IF  N>  9  THEN 

* 

-CO- 

11 

It1 

1900 

IF  N<  5  THEN 

* 

-co¬ 

ll 

1910 

IF  count<10 

AND  RND (13) <10  AND  K$= 

"F"  THEN  K  $  =  " L " 

1920  IF  count  >  5  AND  RND(13)>5  AND  K$  =  "F 
"  THEN  K  $  =  " H " 

1  930  UNTIL  CCOCS  +  1  OR  K$<>"P" 

1  94  0  IF  K  $  =  " F "  THEN  PRINT  TAB ( 1 0 , 2 6 )  ;  "  I 
Freeze"; :CS=CC-1: PRINT  TAB (3,22) ; STRING 
$ (CS,  "  [fs6]  [  f  s  6 ]  [  f  s  6 ]  [  f  s  6 ]  [fs6]  [f s6]  "  )  ;  " 
[ f  s  6 ]  [ f  s  6 ]  [ f  s  6 ]  [ f  s  6 ]  [ f  s  6 ]  [fs7]";:GOTO  20 
10 

1950  PRINT  TAB (15,26) ; "  I  say 
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1960  IF  K  $  =  " H "  THEN  PRINT " higher "  ELSE 
PRINT" lower " 

197  0  D  =  INKEY  (100) 

1980  PROC_DRCD (CC,1,FNSUIT(CC,1), FNVALU 
E (CC, 1) ) 

1990  IF  (FNVALUE (CC, 1) <FNVALUE (C, 1)  AND 
K  $  =  " H " )  OR  (FNVALUE  (CC,  1 )  >FNVALUE  (C,  1 ) 
AND  K  $  =  " L " )  THEN  QUI T  =  TRUE  ELSE  QUI T  =  F AL 
SE 

2000  PRINT  TAB (0, 26)  ; SPC  (39)  ; 

2010  *FX  15  1 
2020  D  =  INKEY  (200) 

2030  PRINT  TAB (0, 26)  ; SPC  (39)  ; 

2040  UNTIL  QUIT  OR  K$="F"  OR  CC=5 
2050  IF  K  $  =  " F "  THEN  CC  =  C:ENDPROC 
2060  IF  CC=5  AND  NOT  QUIT  THEN  CC=6:END 
PROC 

2070  FOR  C=CS+1  TO  CC 

2080  Card$ (C, 1) =DECK$ (BASE%) 

2090  BASE%=BASE%+1 

2100  IF  BASE  %  >50  THEN  PROC_SHUFFLE 
2110  PROC_DRCD (C, 1, 0, 0) 

2120  NEXT 
2130  ENDPROC 
2140 

2150  DEF  FNKEY 
2160  LOCAL  KEY 
2170  *FX  15  1 
2180  KE  Y  =  GE  T 

2190  IF  KE Y>  9  0  THEN  KE Y  =  KEY-3  2 
2200  =CHR$ (KEY) 

2210 

2220  DEF  FN_ANOTHER 
2230  CL  S 

224  0  PRINT  TAB ( 17  ,  5 )  ;  " SCORE " 

2250  PRINT  TAB (10, 7) ; "YOU  " ; P WIN ; TAB ( 2 5 
, 7 ) ; "ME  " ; CWIN 

2260  IF  CWIN>PWIN  THEN  PRINT  TAB(17,10) 
; " I  WIN"  ELSE  PRINT  TAB ( 1 6 , 1 0 ) ; " YOU  WIN" 
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2270  IF  CWIN=3  OR  PWIN=3  THEN  PRINT  TAB 
(12, 12); "A  CLEAN  SWEEP!" 

2280  PRINT"  "Another  game  ?"; 

2290  REPEAT  KEY  $  =  FNKEY 

2300  UNTIL  K E Y $  =  " Y "  OR  K E Y $  =  " N " 

2310  CL  S 

2320  =(KEY$="Y") 
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Graphics 


3-D  Graphics 


These  programs  (variations  of  the  same  program,  using 
different  data)  allow  you  to  create  and  rotate  three-dimensional 
figures.  To  manipulate  the  image,  proceed  as  follows: 

The  cursor  keys  move  the  object  in  the  direction  indicated 
by  the  arrows  on  the  keys. 

f5) 

f6 )  used  to  modify  the  perspective  of  the  image 

f7  moves  the  image  so  that  the  object  is  parallel  with  your 
line  of  sight  (this  will  be  clear  when  you  run  the 
program) 

f9  returns  the  object  to  starting  position 

The  programs  were  written  by  Andrew  Herron.  The  first 
version  shows  the  letters  REW,  on  a  grid,  being  rotated 


10  REM  3D  GRAPHICS  PACKAGE 

20 

30  REM  COPYRIGHT  A. HERRON 

35 

36  REM  Real  Exhausting  Work  ! 

4  0 

50  ON  ERROR  GOTO  1020 
60 

70  GOTO  370: REM  JUMP  TO  MAIN  PROGRAM 
80 

90  REM  * *SUBROUTINES  TO  MANIPULATE** 
*  *  IMAGE  SIZE,  ORIENTATION,  ** 
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*  *  E  T  C 


100 

110  NR  =  NR  —  1 : I F  NR<  0  THEN  NR=120+NR 
120  RETURN 

130  NR=NR+ 1 : I F  NR> 119  THEN  NR=NR-120 
140  RETURN 

150  ZO=ZO* . 95 : RETURN 

160  ZO=ZO/ . 95 : RETURN 

170  S=S* . 7 : RETURN 

180  S=S/ . 7 : RETURN 

190  S=0 : RETURN 

200  S=1 : RETURN 

210  ZO=20 :NR=0 : S=1 : S2=5000 

220  RETURN 

230 

240  REM  COMPUTE  &  STORE  IMAGE  DATA 
250 

260  FOR  I%=1  TO  78 

270  READ  Q  (1%,  0, D)  , X, Y, Z 

280  P=(ZO  +  S*  ( X  *  T ( NR , 0 )  -Z*T(NR,1)  )  )  /S 

2 

290  Q (1%, 1 ,  D  ) = (X*T (NR, 1) +Z*T (NR, 0) ) / 
P 

300  Q (1%, 2 , D ) =Y/P 
310  NEXT  1% 

320  RESTORE 
330  RETURN 
340 

350  REM  *  *  START  OF  MAIN  PROGRAM** 

360 

37  0  *  TV2  5  5 
380  *FX  4  2 
390  *KEY12"1" 

400  *KEY13"2  " 

410  *KEY14"3" 

420  *KEY15"4" 

430  *  K  E  Y  5  "  5  " 

4  4  0  *  K  E  Y  6 " 6 " 

450  * K E Y 7  "7  " 
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4  60  *  K  E  Y  8 " 8 " 

47  0  *  K  E  Y  9 " 9 " 


480 

*  F  X 

11  0 

4  90 

DIM 

T (119, 1) 

,Q(100,2,2) 

500 

st art=TRUE 

510 

MODE 

5  :  VDU2  9 

,640; 512; 

52  0 

VDU 

23,0,10, 

32 , 0 ; 0 ; 0 ; 

530 

540 

REM 

LOOK  UP 

TABLE  FOR  SIN  & 

COS 

550 

5  60 

FOR 

I%=0  TO 

11 9 : T ( 1%, 0 ) =SIN 

RAD ( 1% 

*3) 

57  0  T ( I  % ,  1 ) =CO  S  RAD  ( I  %  *  3 ) 

580  NEXT  1% 

590 

600  ALWAY  S  =  TRUE : C  =  2 : D  =  1 

610  GOSUB  210 

620 

630  REPEAT 
640 

650  REM  *  *  READ  CONTROL  KEYS** 

660 

67  0  PRINT  TAB ( 0, 0 )  ;  "  ?  "  ; 

680  *FX  15  1 

690  IF  start  THEN  st art=FALSE : GOTO  7 

10 

700  V%=VAL (GET$) 

710  PRINT  TAB (0,0);"  "; 

720  ON  V%+1  GOSUB  120,110,130,150,16 
0,170, 180, 190, 200, 210 
730 

74  0  REM  *  *  COMPUTE  IMAGE  DATA** 

750  GOSUB  260 

7  60 

77  0  REM  *  *  DRAW  IMAGE** 

780  GCOL  1 ,  D 
790  PROCDRAW (D) 

800 

810  REM  *  CHANGE  DISPLAYED  PAGE** 
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820  VDU19, D, 7; 0; 19, C, 0; 0; 19, 3, 7 ; 0; 
830 

84  0  REM  *  *ERASE  IMAGE** 

850  GCOL  2  ,  D 

860  PROCDRAW(C) 

87  0 

880  E=C : C=D : D=E 

890  UNTIL  ALWAYS=FALSE 

900  END 

910 

920  DEF  PROCDRAW(H) 

930  REM  DRAW  IMAGES 
940 

950  FOR  I%=1  TO  78 

960  PLOT  Q  (1%,  0, H)  , Q  (1%,  1, H)  , Q (1%, 2, 
H) 

970  NEXT  1% 

980  ENDPROC 
990 

1000  REM  Handles  ON  ERROR  GOTO  .  .  . 

1010 

1020  *FX  12 
1030  *FX  4 
1040  MODE  7 
1050  PRINT 
1060  REPORT 

1070  PRINT"  at  line  " ; ERL 
1080  END 
10  90 

1100  REM  DATA  FOR  IMAGE  POINTS 
1110 

1120  REM  *  *D ATA  FOR  LOGO** 

1130  REM  *  *FRONT  FACE** 

1140  DATA  4 , -1 . 4 , - . 5 , 0 , 5 , -1 . 4 ,  .  5 , 0 
1150  DATA  5, - .  7 ,  .  5,  0 , 5 , - . 6,  .  4 ,  0 
1160  DATA  5, - . 6, 0 , 0 , 5, - . 7 , - . 05 , 0 
1170  DATA  5, - . 6, - . 1, 0, 5, - . 6, - .  5, 0 
1180  DATA  5, - . 8, - . 5, 0, 5, - . 8, - .  1, 0 
1190  DATA  5, -1 . 2 , - . 1 , 0 , 5 , -1 . 2 , - . 5, 0 
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12  00  DATA  5,  -1.4,  -.5,0 

1210  DATA  4, -1 . 2,  . 1, 0, 5, -1 . 2,  .  3, 0 

1220  DATA  5, - . 8, . 3, 0, 5, - . 8, . 1, 0 

1230  DATA  5, -1.2,  .1,0 

1240  REM  LETTER  E 

1250  DATA  4 , - . 4 , - . 5 , - . 2 , 5 , - . 4 , . 5 , - . 2 
12  60  DATA  5,  . 4 ,  . 5 , - .  2 ,  5,  . 4 ,  . 3 , - . 2 
127  0  DATA  5,  -  .  2  ,  . 3, - . 2 , 5 , - . 2 ,  . 1, - . 2 
1280  DATA  5, . 4 , . 1 , - . 2 , 5, . 4 , - . 1 , - . 2 
1290  DATA  5, - . 2 , - . 1 , - . 2 , 5 , - . 2 , - . 3, - . 2 
1300  DATA  5, . 4 , - . 3, - . 2 , 5 , . 4 , - . 5, - . 2 
1310  DATA  5, - . 4 , - . 5 , - . 2 
1320  REM  LETTER  W 

1330  DATA  4 , . 7 , - . 5, - . 4 , 5 , . 6, - . 4 , - . 4 
1340  DATA  5, . 6, . 5 , - . 4 , 5, . 8, . 5 , - . 4 
1350  DATA  5, . 8, - . 3, - . 4 , 5 , . 9, - . 3, - . 4 
1360  DATA  5,  . 9,  . 1,  -  .  4,  5,  1 . 1,  . 1, - . 4 
1370  DATA  5, 1 . 1 , - . 3 , - . 4 , 5 , 1 . 2 , - . 3, - . 4 
1380  DATA  5, 1 . 2 , . 5, - . 4 , 5 , 1 . 4 , . 5, - . 4 
1390  DATA  5,  1 . 4 , - . 4 , - . 4,  5, 1 . 3, - . 5, - . 4 
1400  DATA  5, .7, -.5, -.4 
1410  REM  GRID 


1420 

DATA 

4, 

- 

1 

. 

2 

r 

- 

. 

5 

r 

5 

r 

5 

r 

- 

1  . 

2 

r 
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5 

,  -5 

1430 

DATA 

4, 
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5 
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5 
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5 
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1  . 

4 
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5 

,  -5 

1440 

DATA 

4, 

- 

1 

. 

2 

r 

- 

. 

5 
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5 

t 
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5 
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1450 

DATA 

4, 
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1 
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0 

r 
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0 
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5 
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1460 

DATA 
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8 
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5 

1470 

DATA 

4, 
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5 

1480 

DATA 
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5 
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5 

r 

5 

r 

5 

r 

• 

4 

/ 

5 

/ 

- 

5 

1530 

DATA 

4, 

• 

6 

r 

- 

. 

5 

r 

5 

r 

5 

r 

• 

6 

r 

5 

/ 

- 

5 

1540 

DATA 

4, 

• 

8 

r 

- 

. 

5 

r 

5 

r 

5 

r 

• 

8 

r 

5 

/ 

- 

5 

1550 

DATA 

4, 

1 

. 

0 

r 

- 

. 

5 

r 

5 

r 

5 

r 

1 

• 

o. 

- 

5 

/ 

- 

5 

1560 

DATA 

4, 

1 

• 

2 

r 

- 

. 

5 

r 

5 

r 

5 

r 

1 

• 

2, 

- 

. 

5 

/ 

- 

5 

1570 

DATA 

4, 

1 

• 

4 

r 

- 

. 

5 

r 

5 

r 

5 

r 

1 

• 

4  , 

- 

. 

5 

/ 

- 

5 

1580 

DATA 

4, 

1 

• 

6 

r 

- 

. 

5 

r 

5 

r 

5 

r 

1 

• 

6  , 

- 

. 

5 

t 

- 

5 
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And  now  this  version  rotates  the  house  image: 


10  REM  3D  GRAPHICS  PACKAGE 

20 

30  REM  COPYRIGHT  A. HERRON 

40  REM  HOUSE 

50 

60  ON  ERROR  GOTO  1030 
7  0 

80  GOTO  380: REM  JUMP  TO  MAIN  PROGRAM 
90 

100  REM  * *SUBROUTINES  TO  MANIPULATE** 

*  *  IMAGE  SIZE,  ORIENTATION,  ** 

*  *ETC . 

110 

120  NR=NR-1 : IF  NR<0  THEN  NR=120+NR 
130  RETURN 

140  NR=NR+1 : IF  NR>119  THEN  NR=NR-120 
150  RETURN 

160  ZO=ZO* . 95 : RETURN 

170  ZO=ZO/ . 95 : RETURN 

180  S=S* . 7 : RETURN 

190  S=S/ . 7 : RETURN 

200  S=0 : RETURN 

210  S=1 : RETURN 

220  ZO=20 :NR=0 : S=1 : S2=5000 

230  RETURN 

240 

250  REM  COMPUTE  &  STORE  IMAGE  DATA 
260 

270  FOR  I%=1  TO  36 

280  READ  Q (1%,  0,  D)  , X, Y, Z 

290  P= (ZO  +  S*  (X*T (NR, 0)  — Z*T (NR, 1)  )  )  /  S 
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300 

Q  (1%, 1,D)  = 

(X*T (NR,  1)  +Z*T (NR,  0)  )  / 

310 

Q  (1%, 2,D)  = 

Y/P 

320 

NEXT  1% 

330 

RESTORE 

340 

RETURN 

350 

360 

REM  *  *  START 

OF  MAIN  PROGRAM 

*  * 

37  0 

380 

*  TV2  5  5 

3  90 

*FX  4  2 

400 

*  K  E  Y 1  2  "  1  " 

410 

*KEY13"2 " 

42  0 

*  K  E  Y 1  4  "  3  " 

430 

*KEY15"4" 

4  4  0 

*  K  E  Y  5  "  5  " 

450 

*  K  E  Y  6  "  6  " 

4  60 

*KEY7 "7 " 

470 

*  K  E  Y  8  "  8  " 

480 

*  K  E  Y  9  "  9  " 

490 

*FX  11  0 

500 

DIM  T  (119,  1) 

,Q(100,2,2) 

510 

st art=TRUE 

520 

MODE  5 : VDU2  9 

,640; 512; 

530 

VDU  23,0,10, 

32 , 0 ; 0 ; 0 ; 

540 

550 

REM  LOOK  UP 

TABLE  FOR  SIN  & 

COS 

560 

570 

FOR  I%=0  TO 

11 9 : T ( 1%, 0 ) =SIN 

RAD ( 1% 

*3  ) 

580  T ( I  % ,  1 ) =CO  S  RAD  ( I  %  *  3 ) 

590  NEXT  1% 

600 

610  ALWAY  S  =  TRUE : C  =  2 : D  =  1 

620  GOSUB  220 

630 

640  REPEAT 
650 

660  REM  *  *  READ  CONTROL  KEYS** 
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67  0 

68  0  PRINT  TAB ( 0, 0 )  ;  "  ?  "  ; 

690  *  FX  15  1 

700  IF  start  THEN  st art=FALSE : GOTO  7 

20 

710  V%=VAL (GET$) 

720  PRINT  TAB (0,0);" 

730  ON  V%+1  GOSUB  130,120,140,160,17 
0,180,190,200,210,220 
740 

7  50  REM  *  *  COMPUTE  IMAGE  DATA** 

760  GOSUB  270 

770 

7  80  REM  *  *  DRAW  IMAGE** 

790  GCOL  1 , D 

800  PROCDRAW (D) 

810 

820  REM  *  CHANGE  DISPLAYED  PAGE** 

830  VDU19,D,7;0;19,C,0;0;19,3,7;0; 

840 

850  REM  *  *ERASE  IMAGE** 

860  GCOL  2 , D 

870  PROCDRAW (C) 

880 

890  E=C : C=D : D=E 

900  UNTIL  ALWAYS=FALSE 

910  END 

920 

930  DEF  PROCDRAW (H) 

940  REM  DRAW  IMAGES 
950 

960  FOR  I%=1  TO  78 

97  0  PLOT  Q  (1%,  0, H)  , Q (1%,  1, H)  , Q (1%, 2, 
H) 

980  NEXT  1% 

990  ENDPROC 
1000 

1010  REM  Handles  ON  ERROR  GOTO  ... 

1020 
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1030  *  F  X  12 

104  0  *  F  X  4 

1050  MODE  7 
1060  PRINT 
1070  REPORT 

1080  PRINT"  at  line  " ; ERL 

1090  END 

1100 

1110  REM  DATA  FOR  IMAGE  POINTS 

112  0 

1130 

1140  REM  HOUSE 
1150  REM  WALLS 

1160  DATA  4, 1, 1, 1, 5, 1, -1, 1, 5, -1, -1, 1 

1170  DATA  5,  -1,  1,  1,  4,  1,  1,  -1,  5,  1,  -1, -1 

1180  DATA  5, -1, -1, -1, 5, -1, 1, -1 

1190  DATA  4,  1, -1,  -1,  5,  1,  -1,  1 

1200  DATA  4,  -1,  -1, -1,  5, -1, -1,  1 

1210 

1220  REM  DOOR 

1230  DATA  4 , - . 2 , -1,  1 . 3 , 4 , - . 2 ,  0 , 1 . 3 
1240  DATA  85 , . 2 , 0 , 1 . 3, 4 , . 2 , -1 , 1 . 3 
1250  DATA  85  ,  - . 2  ,  -1 ,  1 . 3 
12  60 

1270  REM  ROOF 

1280  DATA  4,  -1 . 1,  1,  1 . 1,  5,  1 . 1,  1,  1 . 1 
1290  DATA  5, 1 . 1, 1, -1 . 1, 5, -1 . 1, 1, -1 . 1 
1300  DATA  5, -1 . 1, 1, 1 . 1, 5, 8, 1 . 5, 0 
1310  DATA  5,  . 8,  1 . 5,  0, 5, 1 . 1,  1,  1 . 1 
1320  DATA  4, - . 8, 1 . 5, 0, 5, -1 . 1, 1, -1 . 1 
1330  DATA  4, . 8, 1 . 5, 0, 5, 1 . 1, 1, -1 . 1 
1340 

1350  REM  WINDOW 

13  60  DATA  4,  1, 0,  . 5,  5, 1,  .  5,  .  5 

1370  DATA  5, 1, . 5, 5, 5, 1, 0, 5 

1380  DATA  5, 1, 0, . 5, 4, 1, 0, 0 

13  90  DATA  5,  1,  . 5,  0 

1400 

1410  REM  Data  held  as 
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142  0 

1430  REM  plot  type  &  X,Y,Z  co-ords 
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Draw  40 


This  program  allows  you  to  create  complicated  pictures  on  the 
TV  screen,  and  then  dump  them  to  the  MCP-40  Colour 
Printer/Plotter.  There  are  many  commands  you  can  use: 

G  clears  screen  and  variables 
s  slows  the  cursor  movement  down 
f  speeds  it  up 
d  medium  speed 

"  plots  a  point  at  the  cursor  position 
-  (minus  sign)  draws  a  line  from  the  last  point  plotted 
y  selects  yellow 
a  red 
b  black 
w  white 

g  changes  the  colour  displayed  on  the  screen  (keep  press¬ 
ing  the  g  until  the  colour  you  want  is  found) 

I  toggles  dotted/solid  lines 
$  deletes  last  point  plotted 
%  dumps  output  to  plotter 

h  calls  a  help  routine.  This  routine  needs  to  be  written  by 
you,  and  is  inserted  from  line  690  onwards. 

Note  that  the  use  of  upper  and  lower  case  for  these  commands 
is  vital.  That  is,  you  must  use  upper  or  lower  case  as  shown 
here.  Once  you  become  familiar  with  this  program,  you'll  be 
pleased  to  see  how  effective  the  results  of  using  it  can  be,  as  this 
sample  indicates: 
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10  REM  D  RAW  4  0  -  For  MCP-40  Plotter 

20 

30  REM  TESTED  ON  BAS  I C  2  AND  OS1.20 
40 

50  REM  Data  stored  as  {Variable  sta 
rting  at  t%  .  64  Words  stored. 

60  REM  Bits  31-24=ctrl%;  Bits  23-12 
=xcoord%;  Bits  ll-0=ycoord% 

70  REM  ctrl%  Bits  31-30:  00=Mark,  0 
l=Draw,  10=New  Format,  ll=Draw  Dotted 

80  REM  c t  r 1 %  Bits  2  9-2 8=Logical  Col 
our, Bits  27-24=Actual  Colour 
90  *  T V0 ,  1 

100  MODE 1 

110  DIMacol%(3) : REM  Actual  colour  for 
Logical  Colour 

120  recln%  =  255:DIMt%  recln%:p%  =  0: mp  %  =  0 
:  REM  Set  Start  of  Data  Store,  p%=Point 

er,  recln%=Record  Length 

130  modescl%=4 

140  c2%=2A12 : c3%=2A24 : c  4  %  =  2  A4 : c  5  %  =  2  A  6 

:  REM  Set  Constants 

150  VDU2 3 ; 82 02 ; 0 ; 0 ; 0 ; :  REM  Switch  off 

Cursor 

160  VDU24,0;0;1279;919;:VDU28,  0,2,  39,0 
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: CL  S : CLG :  REM  Set  Windows 

170  VDU23, 255, 0,16, 16, 16, 254, 16, 16, 16: 
REM  Define  Sprite 
180  PROCinit :  REM  Initialize 

190  cs $ = " sdf A -Gbay wg | # $ %h " :  REM  Comma 

nd  String 
200 

210  REM  **Control  Loop** 

220  REPEAT  P ROC command :VDU4 : CLS : PRINT 
' xx%, yy%, "  Lcol=";fcolor%; : COLOURfcolor 
% : PRINT" *  COLOURO : PRINT "Acol=";acol% ( 

fcolor%);"  Pcol=";pcol%;:IFp%>recln%  PR 
OCs  ave 

230  VDU  5 : UNT I L  FALSE : END 

2  4  0 

250 

260  REM  *  *  Cont  r o 1  Loop  PROC.** 

270  DEF  PROCcommand 
280  LOCAL  I%,J% 

290  get %  =  GET-&  87 

300  ON  ge t  %  GO SUB4 1 0 ,  4 2 0 ,  4 3 0 ,  4 4 0  ELSE 
GOTO 3  3  0 

310  PROCcross ( cmx%  *scale%, cmy %  *  s  cale  % ) 

: ENDPROC 

320  REM  Decode  Command 
330  in$=CHR$  (get %  +  & 87 ) 

340  FOR  I %  =  1  TO  LEN ( c  s  $ ) 

350  IFin$=MID$  (cs$,  1%,  1)  THEN  J%  =  I%:I 
%  =  &FF 

360  NEXT 

370  ON  J%  GOSUB450, 460, 470, 480, 490, 500 
,510,520,530,540,550,560,570,580,590,600 
ELSE  GO  SUB  6  0  0 
380  ENDPROC 
390 

400  REM  ** Subrout ines  used  in  PROCco 
mmand*  * 

410  cmx%=-l : cmy%=0 : RETURN 
420  cmx%=l : cmy%=0 : RETURN 
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430 

cmx  %  =  0 : cmy%  =  -l  : RETURN 

4  4  0 

cmx  %  =  0 : cmy%  =  l : RETURN 

450 

scale%=modescl% : RETURN 

4  60 

scale%=modescl%*4 : RETURN 

470 

scale%=modescl%*16 : RETURN 

480 

PROCmd ( 0 , xx% , yy % ) :PROCscrn(l) 

:  RE  TU 

RN 

4  90 

PROCmd ( 1 , xx% , yy % ) :PROCscrn(l) 

:  RE  TU 

RN 

500 

PROCinit : RETURN 

510 

P ROC c  f  g  ( 0 )  : RETURN 

52  0 

P ROC c  f g  ( 1 )  : RETURN 

530 

P ROC c  f  g  ( 2 )  : RETURN 

540 

P ROC c  f  g  ( 3 )  : RETURN 

550 

P  ROC  c 1 c : RETURN 

560 

dot %=dot %EOR-l : RETURN 

570 

PROCss : RETURN 

580 

PROCera : RETURN 

590 

PROCplt (0) : RETURN 

600 

PROCh : RETURN 

610 

620 

REM** Initialize  PROC . ** 

630 

DEF  PROCinit 

640 

LOCAL  1%  :FORI%  =  0TO3 : acol%  (1%) 

o\o 

H 

< 

CM 

II 

-1 : NEXT 

650  CLG:ctrl%=0 : lxx%=0 : lyy%=0 :xx%=636: 
yy%  =  508:dot%  =  0: VDU  5 : fcolor%  =  3 : @%  =  5 : scale 
%=mode  scl%*16 :PROCpc :p%  =  0 :pcol%  =  3 : comwd% 
=  537000000: VDU 2  0 : COL OUR 0 : COLOUR131 : GCOL4 
, 0 : *FX4 , 1 

660  ENDPROC 
670 

680  REM  *  * ' HELP '  PROC.** 

690  DEF  PROCh : ENDPROC 
700 

710  REM* ‘Move  Cross  PROC.** 

720  DEF  PROCcross (X%, Y%) 

730  PROCpc 

740  xx%=xx%+X% : yy%=yy%+Y% 
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750  IFxx%<0  OR  xx%>=c2%  xx%=xx%-X% 

760  IFyy%<0  OR  yy%>=c2%  yy%=yy%-Y% 

770  PROCpc 
780  ENDPROC 

7  90 

800  REM*  *P  r int  Cross  PROC.** 

810  DEF  PROCpc 

820  MOVExx%— 12, yy%+16 :VDU255 

830  ENDPROC 

840 

850  REM  **Pack  Instruction** 

860  REM  X%,Y%  Integers  in  Range  0  to 
4095  —  Z%  in  Range  0  to  255 
870  DEF  FNpack ( Z%, X%, Y% ) : LOCALW% 

880  IF  ( Z  % AND  &  8  0 )  W%  =  &80000000  ELSE  W%  = 

0 

8  90  = ( Z  % AND  &  7  F )  * c3 %ORX% * c2 %ORY%ORW% 

900 

910  REM  **Unpack  Instruction** 

920  REM  ctrl%  in  Range  0  to  255  —  x 
coord%,  ycoord%  in  Range  0  to  4095 
930  DEF  PROCunpack (X%) : LOCALW% 

940  IFX%<  0  W%  =  1  ELSE  W%  =  0 
950  X%  =  X% AND  &  7FFFFFFF 
960  ct rl%=X%DIVc3% 

970  IFW%  ctrl%=ctrl%OR&80 
980  xcoord%= (X%MODc3%) DIVc2% 

990  ycoord%=X%MODc2 % 

1000  ENDPROC 

1010 

1020  REM  **  Set  up  MARK/DRAW  and  Coor 
dinates  in  comwd%  &  Store  it  in  t%!p%  ** 

1030  DEF  PROCmd (B%, X%, Y% ): LOCAL  Z% 

1040  IF  B%ANDdot %  B%=3 
1050  PROCunpack ( comwd% ) 

10  60  Z  %  =  ct  r 1 % AND  &  3F  OR  (B%*c5%) 

1070  comwd%=FNpack (Z%, X%, Y%) 

1080  t % ! p%=comwd% : mp%=p% : p%=p%+4 
1090  ENDPROC 


323 


1100 

1110  REM  **  Reset  Colour  in  comwd%  ** 
1120  DEF  PROCrsc (X% ) : LOCALZ% 

1130  PROCunpack ( comwd% ) 

1140  Z  %  =  ct  r 1 % AND  &  C  0  ORX%  *c4%ORacol%  (X%) 
1150  comwd%=FNpack (Z%, xcoord%, ycoord%) 
1160  ENDPROC 
117  0 

1180  REM  **  Change  Logical  Colour  PRO 

C  *  * 

1190  REM  *  <MARK> ( A )  to  Leave  * 

1200  DEF  PROCclc : LOCALI% 

1210  FORI%=0TO15 : VDU19, f color%, 1%; 0; : ac 
ol% (fcolor%) =1% 

1220  get  %  =  GET : IF  get%  =  &67  NEXT:G0T012 

10  ELSE  I %= 1 6 : NEXT 

1230  IFget%=94  PROCrsc ( fcolor% ) :PROCmd( 
0 , xx%, yy% ): ENDPROC  ELSE  VDU7 , 4 : PRINT ' ' " 

< MARIO  (A)  PLEASE VDU5 : get %=GET : G0T012 
30 

1240 

1250  REM  **  Save  Picture  to  Disc  PROC 
*  * 

1260  DEF  PROCsave  p%=0:ENDPROC 
1270 

1280  REM  **  Change  Foreground  Colour 
*  * 

1290  DEF  PROCcfg (X% ): fcolor%=X% : PROCrsc 
(X%) : ENDPROC 
1300 

1310  REM  **  Puts  MARK  or  Draws  Line  o 
n  Screen  from  comwd%  instruction  ** 

1320  DEF  PROCscrn (V%) : LOCALZ%, W% 

1330  PROCunpack ( comwd% ) 

1340  Z%= (ctrl%AND&C0 ) /c5% 

1350  dot %=0 : IF  Z%=0  W%=69  ELSE  IF  Z%=1 
W%  =  5  ELSE  W%  =  2 1 : dot%  =  -l 
1360  f co lor %= ( ct r 1% AND  &  3 0 )  / c4 % 

1370  aco 1% ( f col or % ) =ct r 1 % AND & F 
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1380  VDU1 9, fcolor%, acol% (fcolor%) ; 0; 
1390  PROCpc : MOVElxx% , lyy% 

1400  PROCwrt (V%, W%) 

1410  lxx%=xcoord% : lyy%=y coord% 

1420  ENDPROC 
1430 

1440  REM  **  Single  Step  Proc.-  Use  # 
to  single  step  ** 

1450  DEF  PROCss 
1460  IFp%>mp%  VDU7 :ENDPROC 
1470  comwd%=t % ! p% : p%=p%+4 
1480  IFctrl%AND&C0=& 80  ENDPROC 
1490  PROCscrn(l) 

1500  ENDPROC 
1510 

1520  REM  **  Write  to  Screen  ** 

1530  DEF  PROCwrt ( Z% , W% ) : LOCAL V% : IF Z %= 0 
V%=0  ELSE  V%=f color% 

1540  GCOLO , V% : PLOTW%, xcoord%, ycoord% : GC 
OL4 , 0 : PROCpc 
1550  ENDPROC 
1560 

1570  REM  **  Erase  Proc.  -  Use  $  to  Er 
a  s  e  *  * 

1580  DEF  PROCera 

1590  IFp%<  8  PROCinit : G0T022 0 

1600  p%=p%-4 : mp%=mp%-4 

1610  comwd%= (t% ! p%AND  &  FF000000) OR(t% !mp 
%AND&FFFFFF ) 

1  62  0  PROCs  crn  (  0 ) 

1630  comwd%=t % ! mp% 

1640  ENDPROC 
1650 

1660  REM  **  Plotter  Driver  for  MCP-40 

1  67  0  DEF  PROCplt  (SP%)  :LOCALS$,  Z%, SCL:  R 
EM  S P %  gives  Starting  Value 
1  680  S$  =  STRING$  ( 4 ,  " " )  : S$  =  "  " 

1690  VDU4 : CLS :PRINT" Plotter  Type  MCP-40 
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" ;  : VDU  5 

1700  SCL=2 . 6 : *FX5, 1 

1710  VDU2, 21,  1,  18, 72  :  REM  Set  up  Plotte 
r 

1720  p%=SP% : pcol%=-l 
1730  REPEAT 

1740  PROCunpack ( t % ! p% ) :p%=p%+4 
17  50  ON ( ct  r 1 % AND  &  C0)  /c5%  +  l  GOSUB1820, 
1830,1840,1850 
1760  I F  S  $  = " 0  "  GOTO 1 8  2  0 

1770  Z%= (ctrl%AND&30) /c4% 

17  8  0  Z%  =  0  S  $  = " M " 

17  90  IF  Z%<>pcol%  PRINT"C"4  —  Z% :pcol%  = 
Z% 

1800  PRINTS$;xcoord%/SCL; ", "ycoord%/S 
CL 

1810  UNT ILp%>mp% :PRINT"H, Cl" :VDU6, 3 :E 

NDPROC 

1820  S$="M" : RETURN 
1830  S$="L0, D" : RETURN 
1840  S$="0" : RETURN 
1850  S$="L4, D" : RETURN 
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Keyboard  Utilities 


Keyboard  Speaker 


This  program  allows  your  BBC  Micro  to  speak  a  word  corre¬ 
sponding  to  the  key  you've  pressed  on  the  keyboard.  The 
translation  table  is  held  in  &A00  to  &AFF  and  is  filled  up  using 
the  routine  at  lines  380  to  580.  It  can  be  turned  off  using  *FX 
13,2  and  *FX  13,6. 


10  *FX  225  0 
20  0%  =  &  B  0  0 
30  FOR  P=0  TO  1 
40  P  %  =  &B  0  0 

50  [OPT  P  * 3 

60  CMP  #  2 : BEQ  event 

70  CMP  #  6 : BEQ  escape 

80  RTS 

9  0  . e  scape 

100  PHP :PHA: TYA:P  HA 

110  LD A  #125: JSR  &FFF4 

120  LD Y  #  2  7 : JSR  event 

130  PLA: TAY : PLA: PLP 

140  RTS 

150  .event  PHP:PHA 

160  TXA : P  HA 

170  TYA:PHA 

180  STY  &  7  0 : JSR  translate 

190  LD A  #21: LDX  #8:JSR  &FFF4 

200  LDX  # s nd  MOD256 

210  LD Y  # s nd  DIV256 

22  0  LD A  #  7 : JSR  &FFF1 

230  P  LA  :  TAY 

24  0  P  LA : TAX 

250  PLA:PLP 

260  .end  RTS 
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270 

.translate  LD A  &  0  A  0  0  ,  Y 

280 

CMP  #  0 : BNE  ok 

2  90 

LD A  #127 

300 

. ok  STA  word 

310 

RTS 

320 

. snd  BRK : ] 

330 

!  (P%-1 ) =&0000FFFF 

340 

!  (P%  +  3 ) =500000000 

350 

word=P%+l 

360 

NEXT 

370 

!  &  220=! &220  AND  &FFFF0000  OR  0% 

380 

FOR 

A%  =  0  TO  255 

3  90 

B  % 

=  0 

4  00 

IF 

A%>  =  4  8  AND  A%< 

=57  THEN  B%=A% 

410 

IF 

A%>=65  AND  A%< 

=90  THEN  B%=A% 

420 

IF 

A%>=97  AND  A%< 

=122  THEN  B%=A% 

32 

430 

IF 

A%=13  THEN  B%= 

252 

440 

IF 

A%=ASC" + "  THEN 

B%=A% 

450 

IF 

A%=ASC" — "  THEN 

B%=A% 

4  60 

IF 

A%=ASC"*"  THEN 

B%=A% 

470 

IF 

A  %  =  A  S  C "  .  "  THEN 

B%=A% 

480 

IF 

A%  =  14  2  THEN  B% 

=  187 

4  90 

IF 

A%=61  THEN  B%= 

A% 

500 

IF 

A%=ASC">"  THEN 

B%=A% 

510 

IF 

A%=ASC"<"  THEN 

B%=A% 

520 

IF 

A  %  =  A  S  C  "  '  "  THEN 

B%  =  2  4  5 

530 

IF 

A%=ASC"_"  THEN 

B%=2 1 6 

540 

IF 

A%  =  14  5  THEN  B% 

=  250 

550 

IF 

A%  =  2  7  THEN  B%  = 

194 

5  60 

IF 

A%  =  12  7  THEN  B% 

=  180 

57  0 

A  % 

?  & A0  0  =  B% 

580 

NEXT 

5  90 

*FX 

14  2 

600 

*FX 

14  6 
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Auto  Repeat 


Many  commercial  games  disable  the  auto-repeat  function.  This 
means,  for  example,  that  if  you  wish  to  fire  your  laser  several 
times  rapidly,  you  have  to  lift  your  finger  off  the  key  and  press 
it  again  every  time  you  want  to  fire.  This  program  allows  you  to 
fool  the  computer  into  thinking  you  have  pressed  the  key  over 
and  over  again  incredibly  quickly. 

Once  you've  entered  and  run  this  program,  the  computer 
will  be  ready  for  your  game  to  be  loaded.  Make  sure  you  don't 
press  BREAK  between  running  the  auto-repeat  program  and 
loading  the  game  you  are  to  play.  The  key  which  this  particular 
program  repeats  is  the  RETURN  key  (see  the  -74  in  line  50). 
This  can  easily  be  changed  to  any  key  you  want,  just  by 
modifying  the  value.  The  speed  of  the  repeat  is  set  in  line  60.  It 
is  set  here  to  1  which  means  the  repeat  is  continuous.  Higher 
values  slow  the  repeat  rate  down.  He  value  of  0%  in  line  40 
will  work  with  most  programs.  However,  if  you  find  that  it 
doesn't  work  with  a  particular  program  (some  problems  occur 
with  software-protected  programs),  change  the  &B00  to  a 
lower  value  (which  the  program  will  not  corrupt)  such  as  &900. 


10 

REM  Auto  Repeat 

on  INKEY (key) 

20 

30 

VE  C  TP  = !  &  2  0A  AND 

&  F  F  F  F 

4  0 

0%  =  &  B  0  0 

50 

ke  y  =  - 7 4 

60 

speed=l 

7  0 

REPEAT 

80 

IF  ke y  <  0  THEN 

key  =  key  +  2  5  6 

90 

IF  key >2  5  6  THEN  key  =  key-256 

100 

UNTIL  key>=0 

AND  key<=256 

110 

FOR  P=0  TO  1 

12  0 

P%  =  0% 
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130  [OPT  P  *  3 

140  CMP  #  &  8 1 : BEQ  inkey 

150  JMP  VECTP 

160  .inkey  CPY  #&80:BPL  test 
170  JMP  VECTP 

180  .test  CPX#key:BEQ  fire 

190  JMP  VECTP 

200  .fire  JSR  VECTP 

210  BCS  pfire 

220  LD A  #  0 : S  TA  flag 

230  RTS 

240  .pfire  LDA  flag 

250  CMP  #speed:BEQ  fireok 

260  INC  f lag : LDA  #&81 

27  0  LDX  #  0 : LD Y  #0:CLC:RTS 

280  .fireok  LDA  #0:STA  flag 

290  LDA  #  &  8 1 : RTS 

300  ] 

310  f lag  =  P  % 

320  ?flag=speed 

330  NEXT 

340  ! &  2  0 A= ! &  2  0 A  AND  &FFFF0000  OR  0% 
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Keyboard  Sounder 


This  program  gets  the  computer  to  emit  a  click  sound  each 
time  a  key  is  pressed.  Once  you'  verun  the  program,  you  can 
delete  it.  To  turn  on  the  '  click'u$e  *FX  14,2  with  *FX  13,2  to 
turn  it  off.  The  last  pair  of  digits  in  line  190  controls  the  pitch 
(set  in  this  listing  to  &FF).  The  volume  is  controlled  by  the 
second  pair  of  digits  in  line  180,  currently  at  &F1  (-15). 


10 

*FX  225  0 

20 

0%  =  &  B  0  0 

30 

FOR  P=0  TO  1 

40 

P  %  =  &B  0  0 

50 

[OPT  P  *  3 

60 

CMP  #  2 : BNE 

end 

70 

P  HP : P  HA 

80 

TXA : PHA 

90 

TYA : PHA 

100 

LDX  #  s  nd  MOD  256 

110 

LDY  #  s  nd  DIV  256 

120 

LD A  #  7 : JSR 

&FFF1 

130 

PLA : TAY 

140 

PLA : TAX 

150 

PLA : PLP 

160 

.end  RTS 

170 

. snd  BRK : ] 

180 

!  (P%-1 ) =&FFF10001 

190 

!  (P%  +  3 ) =  &  0  0 0 1 0 OFF 

200 

NEXT 

210 

!  &  220=!  &220 

AND  &FF 
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General  Utilities 


Slow  Down 


This  nifty  program  will  slow  down  your  BBC  Micro  so  that  you 
can  see  what  the  machine  is  actually  doing  when  it  carries  out 
commands  such  as  PLOT.  You  turn  it  on  with  *FX  14,4.  You 
can  slow  it  down  even  further  with  *FX  14,3.  What  your  BBC 
Micro  previously  did  in  microseconds  now  takes  seconds. 


10  origin=&B00 
15  de 1 ay  =  1 0  0 
20  FOR  P=0  TO  1 
30  P%=or igin 
40  [OPT  P  *  3 
50  P  HP : P  HA 
60  TXA : P  HA 
70  TYA : P  HA 
80  LD A  #delay 
90  .loopy  LDX  #255 
100  . loopx  DEX 

110  BNE  loopx 
120  DEY 
130  BNE  loopy 
140  P  L A : T AY 
150  P  L A : TAX 
160  P  L A : P  LP 
170  RTS : ] 

180  NEXT 

190  ! &220=! &220  AND  &FFFF0000  OR  origi 
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Graphical  VU-Meter 


You  should  not  attempt  to  use  this  program  unless  you  are 
quite  experienced  at  dealing  with  electrical  circuits.  The 
program  produces  two  on-screen  line  charts.  One  represents 
the  logarithmic  value  of  the  music  output  and  the  other  shows 
the  linear  value. 


10  REM  Graphical  VU-Meter 
20 

30  REM  Connect  (Ear/DIN)  output  of 
40  REM  Music  Source  to  CHO  (ADVAL1) 

50  REM  input  (pin  15)  and  Analogue 
60  REM  ground  (pin  8  or  5)  of 
70  REM  15-way  D  connector  on  back 
80  REM  of  computer  (analogue  in) 

90 

100  W%=0 
110  S= 1 
120  MODEO 

130  VDU  23, 0, 10, 32, 0; 0; 0; 

140  *FX  16  1 
150  *FX  190  8 
160  A%  = AD VAL 1 
170  Y 1  %  =FNLN 
180  Y2  %=FNLI 
190  M%=Y2% 

200  REPEAT  CLS 
210  S%=TIME 

220  X1%=0 

230  REPEAT  X%=TIME-S% 

24  0  IF  AD VAL 1 <  >  0  THEN  A%=(3*ADVAL( 

1)  +2  * A% )  / 6 

250  MOVE  X 1 %  *  2 , Yl% 
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2  60  Y 1 %  =  FNLN 

270  DRAW  X%*2, Yl% 

2  80  N%  =  Y2  % 

290  Y2%=FNLI 

300  MOVE  X 1 %  *  2 , M% 

310  IF  Y  2  %  >M%  THEN  M%  =  Y2% 

32  0  DRAW  X%  *  2 , M% 

330  MOVE  X1%*2,N% 

340  DRAW  X%*2, Y2% 

350  X1%=X% 

360  IF  Y2%<1023  PRINT  TAB(0,1);"LO 

G : > " ; STRING$ ( (Y2%-512)DIV50, ">") ; SPC ( 15- 

POS ) 

370  IF  Y2%>1023  THEN  VDU  19,7,1,0, 

0,0  ELSE  VDU  19,7,7,0,0,0 
380  UNTIL  X%  >=  6  4  0 

390  UNTIL  FALSE 
400  END 

410  DEF  FNLN= (LN (A%+100) -4 . 6) *150 
420  DEF  FNLI= (A%/9) +512 
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Poster 


Now  you  can  write  messages  to  your  loved  one  in  letters  so 
large  you  can  read  them  from  the  other  side  of  the  street  (if  you 
live  in  a  pretty  narrow  street). 

Follow  the  prompts  to  set  the  character  size,  then  enter 
your  message  which  can  be  up  to  255  characters  long. 

The  output  of  this  program  is  very  impressive.  This 
program  can  even  cope  with  user-defined  graphics. 


10  REM  POSTER 
20 

30  MODE  3 

40  ON  ERROR  IF  ERR=17  THEN  310  ELSE  V 


D 

U  3  : 

REPORT  : 

PRINT 

"  at 

1 

i 

n 

e 

"  ;  ERL 

:  E 

ND 

5 

0 

DIM 

P 

ARB  LK 

8 

6 

0 

PRI 

NT 

TAB  ( 

37,2 

) 

} 

ii 

P 

O 

S 

TER" 

7 

0 

INP 

UT 

1  M,Wi 

dt  h 

o 

f 

P 

a 

P 

er 

i 

n 

c 

h 

ar  ac 

:te 

r 

s  ( 

8 

t  O 

25 

6)  : 

"W% 

8 

0 

IF 

W% 

<8  OR 

W%> 

2 

5 

6 

T 

HEN 

P 

R 

IN 

T 

.  ..pi 

.ea 

s 

e  e 

n 

ter 

s  i 

z  e  in 

t  he 

r 

a 

n 

g 

e 

8 

t 

o 

2 

5 

6 

i  n  c  1 

u 

s  i  v 

e 

ii  •  • 

•  r  • 

GO 

TO  70 

9 

0 

M%  = 

W% 

DIV 

8 

10 

0 

INP 

UT 

1  "Width  o 

f 

c 

h 

a 

r 

act  e 

r 

P 

i 

xe  1 

: 

"X% 

11 

0 

PRI 

NT 

"Length  o 

f 

c 

h 

a 

r 

act  e 

r 

P 

i 

xe  1 

(1 

to  " ; M% ;  " )  "  ; 

120  INPUT  "  :  " Y  % 

130  IF  Y%  < 1  OR  Y  %  >M%  THEN  PRINT'  "Pleas 


e  enter  size  in  the  range  1  to  " ; M% ; : GOT 
O  12  0 

140  INPUT  LINE Sentence  :  "S$ 

150  VDU  2 

160  FOR  C%=LEN(S$)  TO  1  STEP  -1 
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170  C  $  =MI D  $  (S$, C%,  1) 

180  PROC_SHAPE (C$ ) 

190  FOR  X=1  TO  8 
200  FOR  PX=1  TO  X% 

210  FOR  Y= 1  TO  8 
220  P  %  =  FN_P I XE  L ( X , Y ) 

230  IF  ASC (C$) <127  THEN  0$=C$  ELSE  0$+ 
n  *  n 

240  IF  P%  THEN  PRINT  STRING$ ( Y% , 0$ ) ;  E 
LSE  PRINT  STRING$(Y%,"  "); 

250  NEXT  Y 
260  PRINT 
270  NEXT  PX 
280  NEXT  X 
290  NEXT  C% 

300  VDU  1,12 
310  VDU  3 
320  END 

330  DEF  FN_P IXEL ( C , R) 

340  IF  C<1  OR  C>  8  THEN  =FALSE 
350  IF  R< 1  OR  R>  8  THEN  =FALSE 
360  LOCAL  C% 

370  C%=PARBLK?R 

380  IF  (C%  AND  2A(C-1))=0  THEN  =FALSE 
ELSE  =  TRUE 

390  DEF  PROC_SHAPE (C$) 

400  LOCAL  A% , X% , Y% 

410  ?PARBLK=ASC (C$ ) 

420  X%  =  PARBLK  MOD  2  5  6  : Y  %=P ARBLK  DIV  25 

6 

430  A%  =  &  0A : CALL  &FFF1 
440  ENDPROC 
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Orbit  Predictor 


This  clever  program,  based  on  one  written  by  D.  A.  Haines 
G4IPZ,  calculates  -  from  data  obtained  from  the  University  of 
Surrey  satellite  control  (UOSAT)  -  twenty  respective  orbits, 
their  equatorial  crossing  times,  and  the  angular  placement  west 
of  the  zero  meridian.  The  primary  data  for  each  day  can  be 
obtained  from  the  UOSAT  Command  Centre  answerfone  on 
0483  61202.  (This  number  is  worth  ringing  for  the  message, 
which  is  always  interesting,  even  if  you  don't  intend  running  the 
program.) 

The  AOS  times  for  the  British  Isles  are  about  ten  minutes 
after  the  equator  crossing.  The  UOSAT  downlink  is  on 
145.825  megahertz  and  can  be  received  -  when  the  satellite 
link  is  operating  -  on  most  amateur  NBFH  two-metre  equip¬ 
ment.  The  satellite  is  fitted  with  many  interesting  features, 
including  synthesized  speed  speech  for  reports  on  status  and 
the  like.  The  satellite  was  malfunctioning  while  this  book  was 
being  written  ('so  we  are  effectively  deaf  and  blind',  the 
plaintive  Command  Centre  recorded  message  reported  when 
we  rang  it),  but  the  data  produced  by  the  program  is  still  valid. 

Note  how  the  user  inputs  are  accepted.  They  can  be  edited 
using  the  cursor  keys  if  mistakes  are  made,  by  moving  left  and 
right  and  overtyping.  Quite  a  neat  and  useful  feature! 
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Here'  sa  sample  run,  which  shows  that  equator  crossings 
between  320  degrees  west  and  8  degrees  west  would  afford  the 
best  coverage  of  the  UK: 


TIME 

14:08 

DEG 

w 

Time 

DEG 

w 

15 

:  43 

5  . 

.  87 

17 

:  18 

2  9  . 

.  74 

18 

:  54 

53  . 

.  61 

20 

:  2  9 

77  . 

.  47 

22 

:  04 

101  . 

.  35 

23 

:  40 

12  5  . 

.22 

01 

:  15 

14  9, 

.08 

02 

:  50 

172  . 

.  96 

04 

:  2  6 

196  . 

.83 

06 

:  01 

22  0  . 

.  70 

07 

:  3  6 

24  4  . 

.  57 

09 

:  12 

2  68  . 

.  43 

10 

:  47 

2  92  . 

.30 

12 

:  23 

316  . 

.  17 

13 

:  58 

34  0  . 

.  05 

15 

:  33 

3  . 

.  91 

17 

:  09 

27  . 

.  78 

18 

:  44 

51  . 

.  65 

20 

:  19 

75  . 

.  52 

21 

:  55 

99  ■ 

.  39 
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And  here'  sthe  program  listing.  Notice  that  it  allows  you  to 
have  the  data  just  on  the  screen  or  to  produce  (line  170)  a  hard 
copy  of  the  information  on  your  printer. 


10  REM  ORBIT  PREDICTOR 

20 

30  ON  ERROR  GOTO  1250 

40  MODE  7 

50  @%  =  &0202  0 A 

60  PRINT  *  *  *  TAB (10)  [fs3] Orbit  Predic 

tor [ f s7 ] " 

70  PRINT  TAB (9) [fs3] =============== 

—  [  f  s  7  ]  " 

80  PRINT ' fs2 ] UOSAT  Command  Centre 
(UK)  [f s7  ]  " 

90  PRINT' " [fs3] (Answerphone)  0483  612 
0  2  [  f  s  7  ]  " 

100  PRINT [fs3] UOSAT  downlink  145.82 
5  Mhz [ f  s  7 ]  " 

110  PRINT f si ] TIME  [  f s 3 ] HH . MM [ f s 1 ]  : 
[  f s2 ]  00 . 00 " ; STRING$ ( 5 , CHR$  ( 8 )  )  ; 

120  t ime  $  =  FN_I NT IME 

130  hour=VAL (LEFT$ (time$, 2) ) 

140  min=VAL (RIGHT$ (time$, 2) ) 

150  PRINT1 1 " [fsl] Equator  crossing  : [fs 
3 ] DEG  W[fs2]000. 00 STRING $(6,CHR$(8)  )  ; 
160  deg=FN_INDEG 

170  PRINT' ' " [fs3]Do  you  requ ire  a  hard 
copy  (Y/N)  : [fs2] No 

180  HC=FALSE 

190  PRINT  STRING$  (3,CHR$  (8)  )  ; 

200  REP$=FNKEY ("YyNn") 

210  IF  DELT  THEN  190 
220  IF  RET  THEN  270 

230  IF  REP  $  =  " Y "  OR  REP  $  =  " y "  THEN  PRINT 
"Yes"; :HC=TRUE  ELSE  PRINT"No  ";:HC=FALSE 
240  REPEAT  KEY=GET 
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2  50  UNTIL  KE  Y= 1 3  OR  KEY=127 
2  60  IF  KE  Y= 1 2  7  THEN  190 
27  0  A=2  3.87 

280  hour= ( 6 0 ‘hour ) +min 

2  90  B=  9  5.358 
300  CL  S 

310  IF  HC  THEN  VDU  15,2,1,10,1,10  ELSE 
VDU  14 

320  PRINT  STRING$  (27,  "  =  "  )  ' 

330  PRINT"  TIME  LEF T $( t ime $, 2 R 
IGHT$ (time?, 2 ) ; TAB (14 ) ; "DEG  W  ";RIGHT$(" 
[ spc3 ]  "  +  STR$ ( I NT (deg)  )  , 3 )  ;  " . " ; RIGHT  $ ( " 00 
" +  S  T  R  $  (INT (0 . 5+ (  ( deg- INT ( deg )  )  )  *100)  )  ,2) 

340  PRINT  ' TAB ( 4 ) ; " Time " ; TAB ( 14 ) ; "DEG 
W"  ' 

350  FOR  1=1  TO  20 
360  hour=hour+B 

370  IF  hour> 1 440  THEN  hour=hour-l 4 4 0 

3  8  0  Z  =hour / 6  0 

390  X= I NT ( Z ) 

400  C=INT ( (Z-X) *60) 

410  deg=deg+A 

420  IF  deg>3  60  THEN  deg  =  deg-360 
430  Q= (INT (100*deg) ) /100 
440  PRINT" [ spc4 ] " ; RIGHT$ ("00"+STR$ (X 
), 2 );":"; RIGHT $ ( " 00 " +STR$ (C) , 2 ) , Q 
450  NEXT 

460  PRINT ' STRING$ (27, "-") ' 

470  IF  HC  THEN  VDU  1,10,1,10,1,10,1,10 
, 3  ELSE  VDU  15 
480  *FX  15  1 
490  END 

500  DEF  FN_INTIME 
510  LOCAL  t ime  $ 

52  0  time  $  =  "0000" 

53  0  t ime  $  =  FN_I NSRT (time?, FNKEY  (  "012  "  )  , 

1) 
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540  IF  DELT  THEN  530 
550  IF  RET  THEN  =time$ 

560  PRINT  LEFT$ (KEY$, 1) ; 

57  0  IF  time  $  <> " 2 "  THEN  t ime$=FN_INSRT ( 
t ime$, FNKEY  (  " 012 34 567 89  "  )  , 2 )  ELSE  time$  = 
FN_INSRT (time$, FNKEY  ("0123")  ,2) 

580  IF  DELT  THEN  VDU  8 : GOTO  530 
590  IF  RET  THEN  =time$ 

600  PRINT  KEY  $ ;  "  .  "  ; 

610  t ime  $  =  FN_I NSRT (time?, FNKEY ( "012345 
"  )  ,  3  ) 

620  IF  DELT  THEN  VDU  8,8:GOTO  570 
630  IF  RET  THEN  =time$ 

640  PRINT  KEY?; 

650  t ime $=FN_I NSRT (time?, FNKEY ( "012345 
6  7  8  9  "  )  ,  4  ) 

660  IF  DELT  THEN  VDU  8 : GOTO  610 
670  IF  RET  THEN  =time$ 

680  PRINT  KEY?; 

690  *FX  4  1 

700  REPEAT  KEY=GET 

710  UNTIL  KE Y= 1 3  OR  KEY=136 

720  IF  KE  Y= 1 3  6  THEN  VDU  8:GOTO  650 

730  *FX  4 

7  4  0  =t ime  $ 

750  DEF  FN_INDEG 
760  deg$= "000.00" 

770  deg$  =  FN_INSRT (deg$, FNKEY  (  "0123"  )  ,  1 

) 

780  IF  DELT  THEN  770 

790  IF  RET  THEN  =VAL(deg$) 

800  PRINT  KEY?; 

810  IF  deg$= " 3 "  THEN  deg$=FN_INSRT (deg 
$, FNKEY ( "012345" ), 2)  ELSE  deg$=FN_INSRT ( 
deg?, FNKEY ("0123456789"), 2) 

820  IF  DELT  THEN  VDU  8 : GOTO  770 
830  IF  RET  THEN  =VAL(deg$) 

840  PRINT  KEY?; 

850  deg$  =  FN_INSRT (deg$, FNKEY  ("01234567 
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8  9")  ,  3  ) 

860  IF  DELT  THEN  VDU  8 : GOTO  810 
870  IF  RET  THEN  =VAL(deg$) 

880  PRINT  KEY  $ ; 

890  VDU  9 

900  deg$=FN_INSRT (deg$, FNKEY ("01234567 

8  9")  ,  5  ) 

910  IF  DELT  THEN  VDU  8,8:GOTO  850 
920  IF  RET  THEN  =VAL(deg$) 

930  PRINT  KEY  $ ; 

940  deg$=FN_INSRT (deg$, FNKEY ("01234567 
8  9  "  )  ,  6  ) 


950 

IF  DELT  THEN  VDU  8 : GOTO  900 

960 

IF  RET  THEN  =VAL(deg$) 

97  0 

PRINT  KEY  $ ; 

980 

*FX  4  1 

990 

REPEAT  KEY=GET 

1000 

UNTIL  KE Y= 1 3  OR  KEY=136 

1010 

IF  KE  Y= 1 3  6  THEN  VDU  8:GOTO 

940 

1020 

*FX  4 

1030 

=VAL ( deg$ ) 

1040 

END 

1050 

DEF  FNKEY ( ACC$ ) 

1060 

*FX  4  1 

1070 

REPEAT  *FX  15 

1080 

F  LAG  =  F AL  SE 

1090 

DELT=FALSE 

1100 

RET=FALSE 

1110 

SKIP=FALSE 

1120 

KEY  $  =  GET  $ 

1130 

FOR  LOOP=l  TO  LEN ( ACC$ ) 

1140 

IF  KEY$=MID$ (ACC$, LOOP, 

1)  THEN 

F  L  AG  = 

TRUE 

1150 

NEXT 

1160 

IF  KEY$=CHR$ (136)  THEN  DELT=TRUE 

: KE  Y  $  = 

" " : FLAG=TRUE 

1170 

IF  KEY$=CHR$ (13)  THEN  RET 

=  TRUE  :  K 

E  Y  $  =  "  " 

: FLAG=TRUE 

1180  IF  KEY$=CHR$ (137)  THEN  SKIP=TRUE 
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: VDU  9 :KEY$  =  " "  :F  LAG  =  TRUE 
1190  UNTIL  FLAG 
12  00  *  F  X  4 

1210  =KE  Y  $ 

1220  DEF  FN_I NSRT ( va  r i n  $ , addt  o  $ , po  s  n ) 

12  30  IF  addt  o  $= " "  THEN  =varin$ 

1240  =LEFT$ (varin$, posn-1) +addto$+MID$ ( 
varin$,posn+l) 

1250  *FX  4 
1260  @%=10 
1270  VDU  3,12, 10, 10 

1280  IF  ERR<>17  THEN  REPORT : PRINT"  at  1 
ine  " ; ERL 
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